Лови
var
m,a:integer;
b,col,mor,kl,la:real;
begin
write('Сколько кг капусты = ');
readln(m);
a:=m div 10;
b:=m mod 10;
mor:=350*a;
kl:=200*a;
col:=225*a;
la:=4*a;
b:=b*0.1;
mor:=mor+350*b;
kl:=kl+200*b;
col:=col+225*b;
la:=la+4*b;
writeln('На ',m,'кг капусты надо : Морковки - ',mor,'г. Клюквы - ',kl,'г. Соли - ',col,'г. Лаврового листа - ',la,'г');
<span>end.
Тут программа только с двузначными числами работает то есть 15кг 30кг и так далее. </span>
Program abc;
var
n:byte;
x,y: double;
begin
writeln('Введите два действительных положительных числа: ');
readln(x,y);
Writeln('Выберите арифметическое действие: ');
Writeln('1 – сложение');
Writeln('2 – вычитание');
Writeln('3 – умножение');
Writeln('4 – деление');
readln(n);
case n of
1: Writeln('Сумма = ',y+x);
2: Writeln('Разность = ',x-y);
3: Writeln('Произведение = ',x*y);
4: Writeln('Частное = ',x/y);
end;
<span>end.</span>
Я не знаю!!!!!!!!! Не розуміюсь в інформатиці!
Вот решение - все на скриншотах.