№1. Определите значение переменной u после выполнения - вопрос №111417121 от BlaBla552 08.02.2020 10:03

Question

Информатика: №1. Определите значение переменной u после выполнения фрагмента программы. Решение показать с таблицы. Изобразите данный фрагмент программы на языке блок схем. u := 0; j := 1; while j 3 do begin u := u + 2 * j; j := j + j end; №2. Определите значение переменной t после выполнения фрагмента программы. Решение показать с таблицы. Изобразите данный фрагмент программы на языке блок схем. Запишите на естественном языке, для решения какой задачи составлен этот алгоритм. var t: integer; begin t := 113;

BlaBla552 · Answer

Язык программирования не указан, потому - самый простой вариант - программа на паскале. Даже на паскале задачу можно решать различными с массивом, без массива, со строками, без строк. Опять-таки, самый простой вариант - со строками.
var s,p:string; n,i:integer;
begin
writeln('Введите символы:');
readln(s);
n:=pos('.',s)-1;
writeln('n = ',n);
p:='';
for i:=1 to n do p:=s[i]+p;
writeln('а)');
writeln(p);
p:='';
if n mod 2 = 0 then i:=2 else i:=1;
while i<=n do
begin
p:=p+s[i];
i:=i+2;
end;
writeln('б)');
writeln(p);
end.

Пример:
Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки
n = 21
а)
,2s ,1s ыловмис ынаД
б)
Дн ивл 1 2