Напишите программы в Паскале: 1) цикл с предусловием. Написать программу, вычисления у=х2 при х=2, 4, 6, 8, 10; 2) цикл с постусловием. Написать программу, в которой требуется вводить с клавиатуры числа и подсчитывать их сумму, до первого введенного отрицательного числа; 3) цикл параметром. Написать программу, которая находит сумму чисел от 1 до 20
Program n1;var y, x: integer;beginx:=0;while x<10 do beginx:=x+2;y:=x*x;writeln(y);end;end.Program n2;var x, sum: real;beginsum:=0;repeatreadln(x);if(x>=0) then sum:=sum+x;until x<0;writeln(sum);end.Program n3;var a, i: integer;begina:=0;for i:=1 to 20 do a:=a+i;writeln(a);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Напишите программы в Паскале: 1) цикл с предусловием. Написать программу, вычисления у=х2 при х=2, 4, 6, 8, 10; 2) цикл с постусловием. Написать программу, в которой требуется вводить с клавиатуры числа и подсчитывать их сумму, до первого введенного отрицательного числа; 3) цикл параметром. Написать программу, которая находит сумму чисел от 1 до 20» от пользователя Маргарита Бахтина в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!