var
a: real;
i: integer;
mas: array[0..999] of real;
begin
a := -4.5;
i := 0;
while a <= 3.5 do
begin
mas[i] := a;
a += 0.5;
write(mas[i], ' ');
i += 1;
end;
end.
//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
Вообще есть способ сразу их сложить, но он крайне сложный потому дабы особо не мучаться, переводим все в десятичную систему 56.74(8) = 46.9375(10), 123.54(16) = 291.328125(10) сложив эти числа получаем =338.265625(10) и последнее что делаем переводим в семиричную 662.16(00523416) часть в скобке это период, число далее тупо повторяется, хотя думаю округлить разрешат до сотых, решал с помощью калькулятора технического, на большинстве есть возможность перевода из одной системы счисления в другую, если знать куда нажимать
??? Ээээ... Аммм...ээх! Всё равно НЕ ПОНЯТНО!