Паскаль

Diman · 25.03.2009, 16:56

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

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

Redrik Shuhart · 25.03.2009, 17:17

use crt;
var x,y,z:integer;
begin
clrscr;
writeln('BBEDITE CTOUMOCT ! Kr');
readln(x);
writeln('BBEDITE CKOLKO Kr MYKU HADO);
readln(y);
z:=y*x;
writeln('CTOUMOCTb POKYPKI=',z);
readkey;
end.

Redrik Shuhart · 25.03.2009, 17:38

Цитата:

writeln('BBEDITE CKOLKO Kr MYKU HADO);

сорри! забыл ' в конце перед скобкой

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

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

25.03.2009, 17:17	#2 (permalink)
Redrik Shuhart Banned Регистрация: 01.02.2009 Сообщений: 326 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: -158	use crt; var x,y,z:integer; begin clrscr; writeln('BBEDITE CTOUMOCT ! Kr'); readln(x); writeln('BBEDITE CKOLKO Kr MYKU HADO); readln(y); z:=y*x; writeln('CTOUMOCTb POKYPKI=',z); readkey; end.

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