Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lyazzat260703
03.10.2020 11:08 •
Информатика
Дано четыре вещественных числа найти сумму тех чисел которые больше пяти на паскаль
Показать ответ
Ответ:
artemmenshikov2715
28.07.2020 17:55
Var a,b,c,d,S:real;
begin
S:=0;
write('vvedite 4 chisla');
readln(a,b,c,d);
if (a>5) then S:=S+a;
if (b>5) then S:=S+b;
if (c>5) then S:=S+c;
if (d>5) then S:=S+d;
write('Summa chisel =',S)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Senenadasha2017
30.03.2022 20:29
Выбери текстовые редакторы, которые можно использовать для создания веб-страниц.NEditKompoZerOpenBEXISciTECrimson Editor...
ЛераВ223
23.07.2021 04:11
Якого значення набуде зминна N писля віконаня алгоритму якщо N=9 S=11 K=14 ТИЛЬКИ ЧИСЛО...
chesht
01.03.2021 22:21
Двумерные массивы. Дана матрица NхМ, состоящая из натуральных чисел. Найти в ней наименьший элемент и опреде¬лить его местоположение. Если таких элементов несколько, то вывести...
lidaat
31.10.2021 03:52
Паскаль. Создать программу. Обчислити площу й периметр трикутника, якщо відомі три сторони. Довжини сторін вводяться користувачем. Вычислить площадь и периметр треугольника,если...
annalonina
15.08.2022 06:02
Определите типы следующих величин: а)вес человека б)марка автомобиля в)площадь фигуры г)название месяца года д)количество мест в самолёте...
AnastasiaLan2442
16.12.2022 10:17
Ввершинах графа записаны буквы. каждое реброребросо стрелкой означает: к букве добавляется одна чёрточка и получается новая буква....
Наташа1111111124
11.03.2021 08:45
Https://resh.edu.ru/subject/lesson/3053/start/ решите...
10082003настя
15.02.2020 18:51
Когда я запускаю игру в Стиме мне пишут что игра уже запущена , но при этом не запущена... Кто нибудь шарит я в компьютере не шарю установить драйвера , но я не понимаю как...
Alex30050
11.03.2021 10:30
2-тапсырма Сөйлемдегі сөздерді дұрыс ретімен орналастырыңдар. әр мамандықтар мыңға жуық түрлі 40 бар әлемде 1б. 3-тапсырма Мақал-мәтелдердің бөліктерін дұрыс сәйкестіріңдер...
DikarkaWaider
24.08.2021 12:30
2. Решите систему неравенств:{4(х-3) ≥ х+3; 3х + 4 ≥ 7(х-4)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
S:=0;
write('vvedite 4 chisla');
readln(a,b,c,d);
if (a>5) then S:=S+a;
if (b>5) then S:=S+b;
if (c>5) then S:=S+c;
if (d>5) then S:=S+d;
write('Summa chisel =',S)
end.