// Код полностью
var
a, b: real;
begin
a := 5;
b := -3;
a := b + a * 3;
b := 360 / a;
b := a + b;
writeln(a);
writeln(b);
end.
// Вывод
12
42
Ответ:
1)источник:задача на доске приемник:доска(вроде) носитель:ученик
вот например так надо делать
1 раз выполнится. Он проверяет 5<8? Да! Тогда 5+4=9. Далее 5<9? Нет! Выходим из цикла
Esli bi A45 bilo to tak a tocho pravilnii est?3 poprobava mojno
Var
m: array [1..9] of integer;
i: integer;
begin
for i:= 1 to 9 do
begin
if i mod 3=1 then m[i]:= random(100,999);
if i mod 3=2 then m[i]:= i*10;
if i mod 3=0 then m[i]:= m[i-2] + m[i-1];
write (m[i],' ');
end
<span>end.</span>