64*20=1280
Вроде так,если я не ошибаюсь
var
price:real;
i:byte;
begin
write('Введите стоимость 1 кг конфет ');
readln(price);
for i := 1 to 12 do
writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');
end.
0. так как сумма положительных чисел не может быть меньше 10 по условию
Program qqq;
var n, s, x1, z1, i, del: integer;
begin
writeln ('vvedi 5-znachnoe chislo < 32768');
{ограничение типа integer}
readln (n);
del:=10000;
for i:=1 to 5 do
begin
z1:= n mod del;
x1:= n div del;
s:=s+x1;
n:=z1;
del:=del div 10;
end;
writeln ('summa cifr=', s);
readln;
end.
В)наверно
кассир и сам справится
а дворник зачем?