В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
diankakakutkin
diankakakutkin
09.04.2021 22:17 •  Информатика

Решить чему равны значения переменных r, a, d? a: =5; b: =20; c: =-7; d: =2.5; r : = a+(4*b+c)*d; a: = a+4; d: =a*7; 2. в пяти тестовых опросах мальчик получил оценки. составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах. 3*. «покупка в магазине» человек делает в магазине покупки. определите сколько денег у него останется после покупки в магазине перчаток стоимостью а руб., портфеля стоимостью b руб. и галстука стоимостью d руб. все исходные данные с клавиатуры. исходные данные. a — стоимость перчаток; b — стоимость портфеля; d — стоимость галстука; dengi — количество денег у человека. все эти переменные будут вещественного типа. результат. ostatok — количество денег, которое останется у человек (вещественный тип). метод решения. ostatok = dengi – a – b – d написать программу, реализующую данную решить

Показать ответ
Ответ:
max500va
max500va
01.10.2020 19:57
R=222,5
a=9
d=35
А 2 и 3 это в паскале ?
0,0(0 оценок)
Ответ:
NecChanel
NecChanel
01.10.2020 19:57
№1
r = 187,5
a = 9
d = 63

№2
var a,b,c,d,e,f:real;
begin
writeln ('Введите оценки полученные в 5 опросах: ');
readln (a,b,c,d,e);
f:=(a+b+c+d+e)/5;
writeln ('Средняя оценка = ',f);
end.

№3
var dengi,a,b,c,d,ostatok:real;
begin
writeln ('Сколько у Вас денег?');
readln (dengi);
writeln ('Введите стоимость перчаток:');
readln (a);
writeln ('Введите стоимость портфеля:');
readln (b);
writeln ('Введите стоимость галстука:');
readln (d);
ostatok:=dengi-a-b-d;
if ostatok <0 then
writeln ('Вам не хватит денег на данную покупку, для совершения этой покупки Вам нужно ещё ', abs(ostatok), ' рублей')
else
writeln ('У Вас останется ',ostatok,' рублей');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота