1) r=187,5
a=9
d=63
2) var a,b,c,d,e:integer;
sr:real;
begin
writeln(Оценка за первый опрос);
read(a);
writeln(Оценка за второй опрос);
read(b);
writeln(Оценка за третий опрос);
read(c);
writeln(Оценка за четвертый опрос);
read(d);
writeln(Оценка за пятый опрос);
read(e);
sr:=(a+b+c+d+e)/5;
writeln(Среднее значение равно ,sr);
end.
3)var a,b,d, dengi,ostatok: integer;
begin
writeln(Количество денег у человека);
read(dengi);
writeln(Стоимость перчаток);
read(a);
writeln(Стоимость портфеля);
read(b);
writeln(Стоимость галстука);
read(d);
ostatok:=dengi-a-b-d;
writeln(Остаток от изначальной суммы равен ,ostatok);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.