Консультация № 197277
01.12.2019, 12:31
0.00 руб.
0 2 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

в PASCAL, если не сложно то с объяснением.

Обсуждение

давно
Старший Модератор
31795
6196
01.12.2019, 20:59
общий
Адресаты:
Вы сами поняли, что нужно сделать?
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
04.12.2019, 11:36
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=pascal]var
i,n,m:integer;
begin
repeat
write('Enter cost 1 kg:');
readln(m);
until m>0;
repeat
write('Enter N:');
readln(n);
until n>0;
for i:=1 to n do
writeln('Cost ',i,' kg:=',i*m);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа