// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin for var i: =1 to 6 do begin for var j: =8-i downto 2 do print(j); writeln end end. результат 7 6 5 4 3 2 6 5 4 3 2 5 4 3 2 4 3 2 3 2 2
Спасибо
Ответ разместил: Гость
3^i = 18
i = 3
ответ. 3 лампочки.
Ответ разместил: Гость
var
a: array[1..5]of integer;
i: integer;
begin
for i: =1 to 5 do read(a[i]);
for i: =1 to 5 do write(a[i],' ');
writeln;
for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);