Паскаль

Diman · 25.03.2009, 16:40

Если через 40 минут после опубликования не решите то уже и не надо...с клавиатуры вводится стоимость 1 кг муки и количество кг, которое необходимо купить.Вычислить и выдать на экран стоимость покупки.

ТЕМЫ НЕ КЛОНИРОВАТЬ! СОЗДАЙТЕ ОДНУ И ВСЕ ВОПРОСЫ ЗАДАВАЙТЕ ТАМ!

ummasha · 25.03.2009, 16:51

Var
S1,S,m:real;
BEGIN
write('стоимость 1 кг муки=');read(S1);
write('количество кг=');read(m);
S:=S1*m;
writeln('стоимость покупки=',S);
end.

VipeR · 25.03.2009, 16:53

темы не клонировать

25.03.2009, 16:40	#1 (permalink)
Diman Member Регистрация: 26.01.2009 Сообщений: 721 Сказал(а) спасибо: 0 Поблагодарили 2 раз(а) в 2 сообщениях Репутация: 741	Паскаль Если через 40 минут после опубликования не решите то уже и не надо...с клавиатуры вводится стоимость 1 кг муки и количество кг, которое необходимо купить.Вычислить и выдать на экран стоимость покупки. ТЕМЫ НЕ КЛОНИРОВАТЬ! СОЗДАЙТЕ ОДНУ И ВСЕ ВОПРОСЫ ЗАДАВАЙТЕ ТАМ!

25.03.2009, 16:40
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Судя по всему проблема частая, на нашем форуме нашлись совпадения Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль

25.03.2009, 16:51	#2 (permalink)
ummasha Member Регистрация: 24.12.2008 Сообщений: 419 Записей в дневнике: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1311	Var S1,S,m:real; BEGIN write('стоимость 1 кг муки=');read(S1); write('количество кг=');read(m); S:=S1*m; writeln('стоимость покупки=',S); end.

25.03.2009, 16:53	#3 (permalink)
VipeR Имперская инквизиция Регистрация: 14.02.2007 Сообщений: 6,097 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3046	темы не клонировать

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070