Что не делал тупо постоянній повтор и нечево больше. - вопрос №9818671 от NiKaEmpty 12.03.2022 15:10

Question

Информатика: Что не делал тупо постоянній повтор и нечево больше. паскаль . цикл while. обчислити сумму чисел от заданного числа до 150. число ввести с консоли. если введение число 150, вивести сообщение об ошибках, если 150, обчислити сумму, если = 150 - вивести 150

NiKaEmpty · Answer

Program n_1;var x, y, i:integer;begin    readln(x);    if (x =150) then begin        y:=0; i:=150;        while (i =x) do begin y:=y+i; i:=i-1; end;        writeln (y);    end    else writeln ( Ошибка )end....