Вывести на экран числа следующим образом:
5
5 5
5 5 5
5 5 5 5
5 5 5 5 5
1. Короткая версия:
// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
begin
Range(1,5).Select(x->x*5 ).Println(NewLine);
end.
Результат:
5
5 5
5 5 5
5 5 5 5
5 5 5 5 5
2. А так учат в школе...
// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
var
i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to i do Write(5 );
Writeln
end
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
