Вывести числа от 1 до 400, написать этапы разработки программы

Question

Информатика

Любим

5 января, 19:14

Вывести числа от 1 до 400, написать этапы разработки программы

+3

Ответы (1)

Знаете ответ на вопрос?

Машура · Answer 1

Var z:real; i:integer;

begin

writeln ('Введите цену одного килограмма и нажмите ') ;

writeln (' (копейки от рублей отделяйте точкой) ') ;

readln (z) ; writeln ('Вес (граммов) Cтоимость (руб.) ') ;

for i:=1 to 10 do writeln (i*100:13, z*i/10:10:2) ; readln

end.