//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
№3
j=3
k=3
если j больше чем k то j = k - 2, т.е. j = 1
иначе k = k - 1, т.е. k = 2
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
Это одуванчик на первый день желтый на другой белый зеленый с листьями