Регистрация
katyakhmel200
11.07.2022 21:58
Информатика
Есть ответ 👍

Программа на delphi разработать програму суммы n чисел пока сумма не превысит значение m.

159
164
Посмотреть ответы 1

Ответы на вопрос:

Kotuknarkotik
Kotuknarkotik
4,6(79 оценок)
Var d,k,r: integer; begin writeln('введите цену за 100г: '); readln (k); for d: =1 to 10 do begin r: =d*k; writeln(d*100, 'г=', r, 'руб');   end; end.

Популярно: Информатика