Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
victoriya0205
30.05.2023 03:54 •
Информатика
Написать программу в паскаль абс: -d задан проходной . запрашиваются оценки абитуриента на 4 экзаменах и сообщается о результате приема в институт.
Показать ответ
Ответ:
Помогите111234
10.07.2020 08:23
Готово
0,0
(0 оценок)
Ответ:
kristinapr02
10.07.2020 08:23
Вот так задача решается без массивов:
program score;
var a,b,c,d,sc:integer;
res:integer;
begin
write('Input 1st exam score:');
readln(a);
write('Input 2nd exam score:');
readln(b);
write('Input 3rd exam score:');
readln(c);
write('Input 4th exam score:');
readln(d);
write('Input pass score:');
readln(sc);
if (a+b+c+d) <sc then writeln ('NOT PASSED') else writeln('PASSED');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KoTuKFeed
08.07.2020 16:18
Лесорубы (N) решили, что разделят дерево для сруба (K) только поровну, а получившиеся в остатке от такого деления деревья рубить пока не будут. Напишите программу,...
gloria81
29.05.2023 03:07
напечатать в среде программирования ABC PASCAl программы n_3, n_4, n_5, n_6...
RasDua
14.04.2021 04:48
Сиквейн к тему причастие...
егорка158
10.03.2020 15:55
запишіть значення довжини двійкового повідомлення що міститься у створеному файлі наведене в рядку розмір що відкрилося...
Roman789789
16.11.2020 06:35
Определите информационный объем растровый цифровой фотографии размером 2560 x 1280 точек при глубине цвета 16 бита, если сохранить фотографию на карте flash-памяти...
avitoritap016iq
25.02.2020 05:32
Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b – целые...
79033404606
02.10.2022 11:05
Какую роль выполняет грудная клетка, ребра у пресмыкающихся?...
khakimail
02.10.2022 11:05
Заплатив за книгу 1,2 р ., ученик истратил 60% имевшихся у него денег. сколько денег было у ученика?...
Танюша9102
02.10.2022 11:05
Сочинение тема мелосердие и жестокость в современном мире...
Kate1892
02.10.2022 11:05
Сколько литров сероводорода можно получить при взаимодействии 250 г сульфида алюминия, содержащего 6% примесей, соляной кислотой?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program score;
var a,b,c,d,sc:integer;
res:integer;
begin
write('Input 1st exam score:');
readln(a);
write('Input 2nd exam score:');
readln(b);
write('Input 3rd exam score:');
readln(c);
write('Input 4th exam score:');
readln(d);
write('Input pass score:');
readln(sc);
if (a+b+c+d) <sc then writeln ('NOT PASSED') else writeln('PASSED');
end.