Есть ответ 👍

Составьте блок схему решения задачи ввода пятидесяти целых чисел и вычисления суммы только отрицательных из них.

126
437
Посмотреть ответы 1

Ответы на вопрос:

retwegret
4,7(88 оценок)

Var n,s,x: integer;   begin  s: =0;   writeln('введите число');   readln(n);   x: =n;   while x< > 0 do  begin  s: =s+(x mod 10); x: =x div 10;   end;   if sqr(n)=power(s,3) then writeln('верно')      else writeln('неверно');   end.

Популярно: Информатика