<span>var
i,summ: real;
begin
for i := 2 to 50 do begin
summ :=summ+s</span><span>qrt(i)</span><span>;
i:=i+1;
end;
writeln(summ)
end.
//как то так но ошибка вылетает я хз </span>
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Фомат gif
в начале идет табличка соответствия цветов под номерами
потом каждый пиксель помечается номером цвета.
Ответ под номером Г)
..................................