1)
program z1;
uses crt;
var n,i,s:integer;
begin
writeln('введите n');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
end.
Сначала постановка задачи (пункт 2).
Потом разработка алгоритма (пункт 1).
Далее программная реализация алгоритма (пункт 6).
Потом тестирование и отладка программы (пункт 5).
Наконец, выводы по проделанной работе (пункт 4).
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('a = ', ReadReal('a =')/2,' b = ' , ReadReal('b =')+30 )
end.
N i K
8 3 200*3=600
16 4 110*4=440
64 6 120*6=720
128 7 100*7=700
256 8 80*8=640