Вычислить сумму 56 введённых ( вводить не только четные ) четных чисел если результат превышает 568 то к этой сумме прибавить 300
Dog12347
1
25.09.2019 22:40
1
Другие вопросы по теме Информатика
ladaponomareva
20.01.2021 21:44
белка2010
21.04.2021 16:04
Egor456803
24.02.2020 17:31
gulbakhar
24.02.2020 17:29
Nadezhdakarpov1
30.07.2019 04:40
alina06alina
30.07.2019 04:40
kitiry
30.07.2019 04:40
ziiaratmagomedova
30.07.2019 04:40
Saharok00711
30.07.2019 04:40
Популярные вопросы
- Найдите эпитеты в тексте. я видел спор двух близнецов. как две капли воды походили...
1 - Скласти твір образ запорозького козака за співомовкою степана руданського понедельник....
2 - Сократите дробь )) до несократимости 1926/3924...
2 - Преобразуйте в многчлен выражение. 3с(4с++с)^2 сократить дробь. b²-9b b²-81...
2 - Затранскрибируйте текст сады желтеющие зданья меж зеленеющих садов и тёмный будто...
1 - Найти неизвестный член пропорции. у : 8,4 = 1 1/8 : 6 3/4...
3 - Решить ! заранее ! длина зала 12 метров,а ширина составляет (1-3 дробью) длины....
2 - 5примеров тире между простыми предложениями в бессоюзном сложном предложении...
2 - Три целых одна восемнадцатая минус две целых семь двенадцатых...
3 - :мишко пройшов 5км, а biктор- на 2км менше. на скiльки бiльше часу затратить вiктор,...
3
var a,b,c:integer;
begin
a:=0;
for b:= 1 to 56 do
begin
readln(c);
a:=(a+c);
WriteLn(a);
begin
if a>568 then
Writeln(a+300);
end;
end;
end.