Паскаль авс сложить все четные числа и нечетные вывести результат. заранее . счет идет от 1 до 10
ussr2017
3
07.04.2019 10:55
0
Другие вопросы по теме Информатика
aminka0095
21.05.2019 20:50
тамок
21.05.2019 20:50
кам81
21.05.2019 20:50
tjumentseva20031
14.06.2019 06:20
kostya196
24.01.2021 17:18
DimanGame2016
24.01.2021 17:19
honeydrink34324
03.10.2019 04:50
Georgiy111111
14.08.2019 01:40
Alisarive
08.08.2019 11:50
Популярные вопросы
- Запишите молекулярное и ионное уравнения реакций между карбонатом калия и...
3 - Что означают выражения ? к науке нет царской дороги ворота азии не заслоняй...
2 - Купили 173 груши. в пяти больших пакетах лежало по 25 груш. в каждом маленьком...
1 - Определите широту и долготу сельвы ( южная америка )...
3 - Выпиши из текста восемьвыпиши из текста восемь словосочетаний с . на рассвете...
3 - Составить рассказ со словами (солнце, день, друзья, поезд, страна)....
3 - Нужна , . в масиве с k чисел найти количестве елементов, велечина которых...
1 - Длина прямоугольника 6см, а ширина 4см. чему равна 3/4 площади этого прямоугольника?...
3 - Почему со сжатыми газами (кислородом, водородом, ацетиленом) нельзя нагревать...
2 - Вкакой части материка евразия протекает река амур ?...
3
var a,b,i,r:integer;
begin
b:=0;
a:=0;
for i:=1 to 10 do begin
if (i mod 2 = 0) Then a:=a+i Else b:=b+i;
end;
writeln('сумма четных ',a);
writeln('сумма нечетных ',b);
end.