давно
Старший Модератор
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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.