Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Билга
03.02.2022, 07:38
Информатика

Напишите программы в Паскале!!!_ 2. Расход бензина на 100 км пути в среднем составляет 9

л. Определить стоимость бензина для расстояния 200 км, 400 км, 600 км, 800 км, 1000 км, если цена одного литра равна х руб. 3. Цена 1 кг сыра К рублей. Распечатать таблицу стоимости порций сыра по 100 г, 200 г, 300 г, 400 г, 500 г, 600 г, 700 г.
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Кургамбек

program petrol;
var i, x: integer;
begin
write('Введите цену одного литра бензина: ');
readln(x);
For i:= 1 to 5 do
writeln('Расстояние: ', i * 200 : 4, ' км, стоимость бензина ', i * 18 * x : 5, ' р.' );
end.

program cheese;
var i, k: integer;
begin
write('Введите цену одного килограмма сыра: ');
readln(k);
For i:= 1 to 10 do
writeln('Порция сыра: ', i * 100 : 4, ' г, стоимость порции ', (i * k) / 10 : 4, ' р.');
end.