Предмет: Информатика,
автор: Аноним
Написать программу в Паскале,выводящую на экран:
0 1 1 1 1
0 0 1 1 1
0 0 0 1 1
0 0 0 0 1
0 0 0 0 0
Используя оператор div и цикл в цикле
Ответы
Автор ответа:
1
program HelloWorld;
var res,i,z: integer;
begin
for i:=4 downto 0 do
begin
for z:=5 downto 1 do
begin
res := 0;
if i div z > 0 then res := 1;
write(res);
write(' ');
end;
writeln('');
end;
end.
Похожие вопросы
Предмет: Биология,
автор: volkvara6952
Предмет: Химия,
автор: meowpidooor6665
Предмет: Математика,
автор: romaushakova
Предмет: Алгебра,
автор: taamneh13
Предмет: Математика,
автор: murad55679