Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sentyakovv
02.02.2022 22:20 •
Информатика
Вычислить сумму 56 введённых ( вводить не только четные ) четных чисел если результат превышает 568 то к этой сумме прибавить 300
Показать ответ
Ответ:
filatevanastya1
08.10.2020 19:27
Program 2;
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
kostiusikao
23.07.2021 15:28
Выбери блоки,используемые в данной програме ...
dilya1921
10.08.2021 23:35
Практическое задание Точка A на плоскости задается коорди- натами x, y (рис. 2). Определите, в ка- кой координатной четверти плоскости она лежит. Алгоритмическое решение В какой четверти...
Зафар1234567890
26.01.2021 20:19
В некотором городе Че билеты на проезд в общественном транспорте (назовем такие билеты одним словом - проездной) можно купить по разным тарифам: - проездной на одну поездку стоит...
bossmakswell
03.06.2022 20:43
3. Дана программа, найдите ошибки name input «Введитеимя» Print («Привет,»name)...
TheCool111
21.03.2020 14:20
задание 5 дан программный код определи какой результат получится на выходе ошибка 5 6 7...
slunyavchik
18.02.2022 03:23
Текст и ключевые слова Ввод данных при клавиатуры имеет строго определенную структуру: {(1)}={(2)}(input(“{(3)}”))Ключевые слова: имя программы, имя переменной, команда преобразования,...
Daniyal11111111
17.08.2020 11:55
4. одна программа, работающая с форматом tiff, не смогла прочитать файл этого же формата, созданный другой программой. в чём причина?...
extysq3000
09.12.2020 12:32
Найти сумму и произведение 4 чисел ведённых с клавиатуры...
Айгульнафис
19.06.2022 11:26
Модем информацию со скоростью 28800 бит/с, может передать две страницы текста (3600 байт) в течение...
maestro27568
19.06.2022 11:26
4σ (s! +s) s=1 найдите ошибку, program mar; uses crt; var f,s: integer; k: real; begin clrscr; f: =1; k: =0; for s: =1 to 4 do begin f: =f*s; k: =k*(f+s); end; writeln( k = ,k: 4:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.