Решаем задачи Абрамян на Паскале. For5

For5. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, …, 1 кг конфет.

Решение:

1

2

3

4

5

6

7

8

9

10

11

program For5;

var

C:Real;

i:Integer;

begin

Write('Введите стоимость 1 кг конфет: ');

Readln(C);

Writeln('Введите стоимость конфет: ');

For i:=1 to 10 do Writeln(i/10,'кг: ',i/10*C);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии:

Добавить комментарий Отменить ответ

➤