Pascal abc 1.найти сумму всех четных чисел 2. вычисление кубов чисел от 25 до 125 (нужен код)

156

269

Посмотреть ответы 2

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

PomogiteDimePleaz

Информатика

4,7(79 оценок)

{1} var sum, i, n, n2: integer; begin write('диапазон чисел от '); read(n); write('до '); read(n2); for i : = n to n2 do if i mod 2 = 0 then sum : = sum + i; writeln('сумма четных чисел: ', sum); end.{2}var i: integer; begin writeln('список кубов от 25 до 125: '); for i : = 25 to 125 do writeln(i, ' в кубе = ', power(i, 3)); end.

маря39

Информатика

4,5(45 оценок)

Program pascalochka; var a,b,c,sum : integer; begin write('введите количество тетрадей '); readln(a); write('введите количество ручек '); readln(b); write('введите количество карандашей '); readln(c); sum: =(a+c)*10+b*20; writeln(sum,' количество рублей необходимо для данной покупки'); end.