var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.
После выполнения фрагмента прграммы x будет равен 67
Как я понимаю а)а=53 и б)b= 67 - значения переменных а и b соответственно
в) а=50 г) b=106
При а=53 и b=67 x=120
При а=50 и b=106 x= - 324
var a, n, b:integer;
begin
for a := 170 to 180 do;
readln(n);
b := a mod n;
writeln('Ответ:', b);
end.
(Не уверен, но возможно правильно :) )
Вот тебе последовательность, через тире координата кузнечика после после выполнения команды:
Вправо на 7 -- 7
Влево на 5 -- 2
Вправо на 7 -- 9
Влево на 5 -- 4
Вправо на 7 -- 11
Влево на 5 -- 6