Предмет: Информатика,
автор: Аноним
Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A.
Ответы
Автор ответа:
0
Pascal
var A,Z,n:real;
begin
writeln('vvedite A ');
readln(A);
Z:=0;
n:=0;
while Z<A then
begin
Z:=Z+n;
n:=n+1;
end;
writeln(Z,'pri n=',n);
readln;
end.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: Olya128909
Предмет: Математика,
автор: elkhanjan
Предмет: История,
автор: albina2282k200
Предмет: Геометрия,
автор: Irishkaa