Question

(Ребята,очень нужна помощь. Дам 20 баллов.) Для приготовления повару понадобилось X кг каратошки,свеклы в 3 раза меньше,а лука в 2 раза меньше чем свеклы. Вывести на экран: 1 сколько килограмм лука потратил повар? 2.Сколько килограмм свеклы потратил повар? 3.Сколько килограмм картошки потратил повар?

Answer 1

Ответ:

Program kartoha;

Var k, s, l, pol:real;

begin

  writeln('Практическая работа № 1111111111111111111'); // Измени на настоящее

  writeln('Выполнил ученик непонятно какого класса');

  writeln('Шайтан  Неблагочестивый ');  

writeln('-------------------------------------------------------------------------------------------------------------------------');

writeln('-----------------------------------------------< Задача >----------------------------------------');

writeln('kartoshki - X');

writeln('svekli - X/3');

writeln('lyk - X/6 ');

writeln('Lyk - ?, Svekla - ?, Kartoshka -?');

writeln('-------------------------------------------------------------------------------------------------------------');

writeln();

writeln();

writeln('-------------------------------------------------< Решение >--------------------------------------');

writeln('Skolko kg nakashevaril povar?');

readln(pol);

k:= pol div 1,5;

s:= k div 3;

l:=s div 2;

writeln('Lyka ', l, 'kg,  Svekli ', s, ' kg ,  Kartosheshki  ', k ' kg');

end.

Объяснение:

фух. всё вроде понятно, код читаемый. впервые пришлось писать столько врайтлнов. передаю привет повару-программисту, что эту задачу составлял и оформление такое придумал, это же не программирование, а тетрадь первоклассника.