1. Информатика
  2. Вводить числа с клавиатуры

Вводить числа с клавиатуры до тех пор ,пока сумма четных из них не совпадёт с суммой нечетных

Mariaaglotkova Mariaaglotkova    1   27.08.2019 21:10    0

Ответы
НастяО11 НастяО11  20.08.2020 16:49
Var
   A:integer;
   Sc,Sn:real;
Begin
Sc:=0;
Sn:=0;
Repeat
Read(A);
if A mod 2 = 0 then Sc:=Sc+A
else Sn:=Sn+A;
Until Sc=Sn;
WriteLn('S = ',Sc)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
QwErTyля QwErTyля  14.04.2020 21:05
Дано полное имя https://resh.edu.ru. Какого уровня будет домен resh в этом адресе?...
markay markay  14.04.2020 21:03
Написать конспект. Тема одномерные массивы в паскале . описание массива в var. ввод и вывод массива, заполнение массива. действия с элементами массива и с группой массивов....
Sinnysis Sinnysis  04.06.2019 05:00
Определить для массива x(n) суммы четных и нечетных элементов массива. вывести исходный массив и полученные значения. упорядочить массив x(n) по возрастанию. вывести...
Oksana91111 Oksana91111  28.06.2019 22:10
100 , напишите программу, которая вычисляет среднюю за неделю температуру воздуха. исходные данные вводятся с клавиатуры #1 пример выходных данных: введите температуру...
МериКрисс МериКрисс  28.06.2019 22:10
Сначала суток секунд (n-целое).найти количество полных минут с чала суток....
hhjufjifklkl hhjufjifklkl  28.06.2019 22:20
Подскажите, , сколько нулей содержит двоичная запись числа 64+16+1? в сумме все числа-десятичные. объясните, , как это решать....
Stas2007111 Stas2007111  11.07.2019 05:30
Значимая часть слова, которая образует форм слова назвается...
dimas112006 dimas112006  11.07.2019 05:30
Найдите значения выражения: 2 в 4 степени; 3 в 3 степени; 10 в 5 степени; 1 в 12 степени; 100 в 4 степени; 20 в 6 степени...
mila17111 mila17111  11.07.2019 05:30
Образуйте форму повелительного наклонения. составьте предложения. намазать, положить, лечь, резать, печь, спрятать, обозначить, отложить, ехать, пропылесосить....
LenaFox456 LenaFox456  11.07.2019 05:30
Во сколько раз масса куска мрамора объемом 1м(кубического) больше массы куска парафина того же объема? плотность мрамора 2700кг\м(кубического) ,плотность парафина 900кг\м(кубического)....

Популярные вопросы