Развлекаюсь примерчиками по Аде. Задание: Вычислить сумму четных целых чисел от 2 до 30. Вывести последовательность этих чисел в столбец, используя форматный вывод выровнять по правому краю, для записи числа отвести 5 позиций. Использовать оператор цикла for.
Сам код:
with Ada.Text_IO, Ada.Integer_Text_IO;
procedure lab1_2 is
i, result : integer;
begin
Result :=0;
for i in 2..30 loop
if (i rem 2) = 0 then
Ada.Integer_Text_IO.Put(result,5);
Ada.Text_IO.New_Line;
Result:=Result+i;
end if;
end loop;
Ada.Text_IO.Put("Result is :");
Ada.Integer_Text_IO.Put(result,5);
end lab1_2;
Результат:
0
2
6
12
20
30
42
56
72
90
110
132
156
182
210
Result is : 240
