(35 ) доработать программу в pascal так, чтобы она выполняла вычисления n раз с разными исходными данными, используя оператор цикла for. переменную n ввести с клавиатуры.

var n: integer;
a,b,m: real;
begin
writeln('меню: ');
writeln('1.килограмм');
writeln('2.милиграмм');
writeln('3.грамм');
writeln('4.тонна');
writeln('5.центнер');
writeln('ваш выбор: ');
readln(n);
writeln('введите массу ');
readln(m);
case n of
1: writeln(' масса в кг =',m: 4: 2);
2: writeln(' масса в кг =',m*1000: 4: 2);
3: writeln(' масса в кг =',m/1: 4: 3);
4: writeln(' масса в кг =',m*1000: 4: 2);
5: writeln(' масса в кг =',m*100: 4: 2);
else writeln('такого номера единицы массы не существует');
end;
readln;
end.

доминик13    3   25.10.2019 22:26    1