Напечатать числа следущим образом 20 11.1 19 11.2 ... 10 11.11
Напечатать числа следущим образом
20 11.1
19 11.2
...
10 11.11
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
begin
for i:=1 to 11 do Writeln(21-i,' 11.',i)
end.
Результат
20 11.1
19 11.2
18 11.3
17 11.4
16 11.5
15 11.6
14 11.7
13 11.8
12 11.9
11 11.10
10 11.11
Не нашли ответ?
Похожие вопросы