nouvelle
У Вас в школе FreePascal в какой операционной системе работает: Windows или Linux?
Модератор: Модераторы
nikolay61 писал(а):else ('Вы ввели не верное число');
rudie писал(а):Помогите пожалуйста составить программу, чтобы числа выводились в виде такой таблицы, если не трудно с объяснениями что к чему:
0
1 0
2 1 0
3 2 1 0
4 3 2 1 0
var i,n:integer;
begin
n:=0;
while n<5 do begin
for i:=n downto 0 do
write(i,' ');
writeln;
inc(n);
end;
readln
end.
Little_Roo писал(а):nikolay61 писал(а):else ('Вы ввели не верное число');
а кто будет write писать ???
Little_Roo писал(а):Переименовать бы ветку в Церковно-приходская школа![]()
![]()
nouvelle писал(а):А учеников ЦПШ меньше не становится...
Paster Fob писал(а):rudie писал(а):Помогите пожалуйста составить программу, чтобы числа выводились в виде такой таблицы, если не трудно с объяснениями что к чему:
0
1 0
2 1 0
3 2 1 0
4 3 2 1 0
объяснять в принципе нечего.
- Код: Выделить всё
var i,n:integer;
begin
n:=0;
while n<5 do begin
for i:=n downto 0 do
write(i,' ');
writeln;
inc(n);
end;
readln
end.
Вернуться в Обучение Free Pascal
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 28