Помогите написать программы, пожалуйста!

5-9 класс

1) Какое количество теплоты выделяет обычная лампа накаливания мощностью P за время t? На тепло уходит 60% всей энергии. {E=P*t}.
2) Хватит ли денег S на покупку товара, если единица товара стоит C? Сколько товара можно купить?

Alenaaaa31 22 июня 2013 г., 13:40:54 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Uruslom90

22 июня 2013 г., 15:08:57 (10 лет назад)

1)
var
p,t:integer;
begin
writeln('Введте мощьность');
readln(p);
writeln('Введите воемя');
readln(t);
writeln('Кол-во теплоты равно: ',p*t*60/100);
end.

2)
var
s,c:integer;
begin
writeln('Введите кол-во денег: ');
readln(s);
writeln('Цена за единицу товара: ');
readln(c);
writeln('На эту сумму можно купить ',s div c,' единиц товара');
end.

Надеюсь на "Лучший ответ" ;)

Хороший ответ

0 Жалоба Ответить

+ 0 -

Кэт555Катерина555

22 июня 2013 г., 17:27:34 (10 лет назад)

1)
var a, b:integer;
begin
read(a);
read(b);
writeln(a*b*60/100:0:10);
end.

2)
var a, b:integer;
begin
read(a);
read(b);
write(a div b);
end.

P.S. Надеюсь на благодарность и лучший ответ.