profile
Опубликовано 4 года назад по предмету Информатика от PoLiNKaZ

Написать программу, которая выводит сумму квадратов пяти целых положительных чисел
 Числа (как положительные, так и отрицательные) вводятся с клавиатуры

  1. Ответ
    Ответ дан Liysha
    var n,k,t: integer;
    begin
    k:=0;
    t:=0;
    repeat
    read(n);
    if n>0 then
    begin
    k:=k+1;
    t:=t+sqr(n);
    end;
    until
    k>4;
    writeln(t);
    end.