Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
duyquhuseynli11
04.06.2022 22:00 •
Информатика
Написать программу в паскаль абс: -d задан проходной . запрашиваются оценки абитуриента на 4 экзаменах и сообщается о результате приема в институт.
Показать ответ
Ответ:
vitaly10
10.07.2020 08:23
Готово
0,0
(0 оценок)
Ответ:
danila2208
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 оценок)
Популярные вопросы: Информатика
Денок07
26.05.2021 02:08
За до слів якщо й то утвори логічні слідування.Мама купила на ринку овочі.і може зварити борщ.Настала весна.На деревах з явилися бруньки.Воду нагріти до 100 °С.Вона буде...
ALEXANDER982
29.10.2020 14:53
Хотя б одну из двух, БРАТЦЫ:)ПАСКАЛЬ1) Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром...
poly77
18.10.2021 14:47
Написать на C# программу: Даны два файла с числами. Получить новый файл, записав в него сначала все четные числа из первого файла, потом все нечетные числа из второго....
ира1288
16.02.2021 17:16
Статья набранная на компьютере содержит 64 страницы, на каждой странице 40 строк, в каждой строке 40 символов. определите размер статьи в кодировке кои-8 , в которой каждый...
Nikitosqwerty
26.08.2020 23:24
Не могу поставить стены в программе кумир(2.1.0) при редактировании обстановки. с чем это связано?...
Likusy15
01.11.2021 23:46
Придумать на любое свойство информации (...
Diches
15.04.2022 13:22
Что будет нарисовано исполнителем Чертежник после выполнения программы *...
кристина2156
24.05.2023 20:57
Во У исполнителя Бета две команды, которым присвоены номера: 1) прибавь 2; 2) умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Бета увеличивает...
schaposchnyk
25.07.2021 04:08
куда посоветуете пойти на информационные системы и програмирование или сетевое и системное администрирование...
hetag15
26.12.2020 02:57
Где-то в другой вселенной Витя занимается продажей Жайфонов. Всего у него сейчас есть n Жайфонов. i-я из них стоит ai тенге. Всем известно, что стоимость смартфона постепенно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.