Задание2 (Вариант 4). Fori := 1 ton - 1 do. Вывод: Научилась представлять результаты решения разными методами в Pascal ABC
Задание2 (Вариант 4)
1 1
2 2
3 3
4 4
2часть работы:
Блоксхема
Программа:
Programlab7_1;
varn, i: integer;
begin
Writeln ('Введите количество строк:');
Write(' n = '); Readln(n);
Fori := 1 ton - 1 do
Writeln(i:i, i:2*(n - i));
Writeln(n:n)
End.
Вывод: Научилась представлять результаты решения разными методами в Pascal ABC
|