Var n, m, sum: integer; begin sum : = 0; repeat writeln('введите числ с которого начинается ряд'); readln(n); writeln('введите число которым заканчивается ряд'); readln(m); until n< m; if odd(n) then n : = n + 1; if odd(m) then m : = m - 1; sum : = (n + m) * (m - n + 2) div 4; writeln('сумма чётных чисел натурального ряда: ', sum); end.
Program figna ; {это название} var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые} begin {начало} writeln('введите три числа'); {запрос чисел} readln(a,b,c); {ввод чисел} d:=a*b*c; {умножаем числа и присваиваем d их значение} if (d<50) then {если произведение чисел меньше 50 то} a:=a*10; {первое число умножаем на десять} b:=b*10; {второе число умножаем на десять} c:=c*10; {третье число умножаем на десять} writeln(a); {выводим первое} writeln(b); {выводим второе} writeln(c); {выводим третье} else {иначе} writeln(d); {выводим произведение} end. {конец} P.S. этот символ { } паскаль не читает и означает он коментарий
