Паскаль! составить таблицу стоимости порций сыра весом 50, 100, 150, ... 500г (цена...

Question

Паскаль! составить таблицу стоимости порций сыра весом 50, 100, 150, ... 500г (цена 1кг=420руб 37 копеек)

Answer 1

Uses crt ;
Var n,i:integer;
Mone, gr:real;
Begin
Clrscr;
Gr:=0.42037;
While i < 500 do
Begin
I:=i+50;
Mone:=gr*i;
Writeln(i,' гр. сыра стоит ', mone:4:2);
End;
Readkey;
End.

Comments

всё работает правильно перепишите