tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в паскале,
Написать программу в паскале, которая считает среднюю успеваемость учащегося. для расчета у пользователя спрашивают: 1. введите оценку по биологии.
AgentMega
3 14.09.2019 10:40
2
Ответы
marvin4547
07.10.2020 14:02
Var a, b, c, d, e: byte;
ArithMean: real;
begin
write('Введите оценку по математике: '); readln(a);
write('Введите оценку по русскому языку: '); readln(b);
write('Введите оценку по физике: '); readln(c);
write('Введите оценку по химии: '); readln(d);
write('Введите оценку по биологии: '); readln(e);
ArithMean := (a+b+c+d+e)/5;
writeln('Средняя = ', ArithMean);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
keramix
02.06.2020 10:18
Опишите основные операции логической функции своими словами....
Romizn
02.06.2020 10:18
Вывести квадраты первых десяти натуральных чисел.Сделайте полный код на паскале!не копируйте другие коды...
ezubarew2012p013cv
02.06.2020 10:32
Пользователь работал с каталогом С:\Физика\Задачи\Кинематика. Сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень вверх и после этого...
metelyovavickt
08.10.2019 20:30
1.дан массив посчитать количество отрицательных элементов2.дан массив посчитать произведение целых элементов. 40 .. решите...
kisazaya4
04.08.2019 01:30
Что больше 1736кбайта или 6700байта...
Айгуль19791788
19.09.2019 20:10
Сколько всего цветов в паинте ? где-то 56 мл? точную цифру...
Кабасена05
19.09.2019 19:33
Сколько существует различных путей из города а в город к...
Albert116
09.11.2020 14:05
Как написать имя Максим на языке Пайтон...
yesenia2007
06.12.2021 20:36
1.Выполни деление алгебраических дробей (файл прикрепил) 2.Возведи в степень алгебраическую дробь (файл прикрепил) 3. Упрости выражение (файл прикрепил) Можно просто...
Vov1111
06.12.2021 20:36
Вирішить ,будь ласкарешите Solve this please...
Популярные вопросы
Твір-роздум на морально-епічну тему в публіцистичному стилі на...
3
Купили 4кг яблок а груш на 2кг больше.сколько купили груш?...
3
Решите пример 91*2,5: 5,6+3,48: 6,25*1,8...
1
Решить уравнение: а-15×30=320,×-270=1150+630,780-у=1440: 60,150*20-а=1200...
2
мне. мне нужно написать складовые сюжета в повесте таємне товариство...
1
Сумма трёх чисел равна 777. второе число в 2 раза больше первого,...
3
Футболка стоит 240 рублей,продаетьмя с 25%-й скидкой .при покупке...
2
Характеристика и строение комнатного ростения герань...
3
Круговорот азота в природе. изменения в биосфере...
1
13. какое из сле¬ду¬ю¬щих утвер¬жде¬ний верно? 1) внеш¬ний угол...
3
ArithMean: real;
begin
write('Введите оценку по математике: '); readln(a);
write('Введите оценку по русскому языку: '); readln(b);
write('Введите оценку по физике: '); readln(c);
write('Введите оценку по химии: '); readln(d);
write('Введите оценку по биологии: '); readln(e);
ArithMean := (a+b+c+d+e)/5;
writeln('Средняя = ', ArithMean);
end.