Предмет: Информатика,
автор: 1901ania
Д/з 6 класс
1. Чему равны значения переменных
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
Написать программу, реализующую данную задачу
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
спасибо
Похожие вопросы
Предмет: Обществознание,
автор: wnkws
Предмет: Українська мова,
автор: aliona6565
Предмет: Математика,
автор: buninaarina2009
Предмет: Физика,
автор: Juliya2907997
Предмет: Алгебра,
автор: Vazhnin