Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
Решение прикрепил скрином, ну и конечно для развития скажу вам, фут это 0,3м а не 0,45. Я так понял в этой задаче поставили 0,45 что-бы не так было просто загуглить.
Не менее должен содержать 256
"/" - деление
"*" - умножение
sqr квадрат (^2)
cos так и остается
Просто заменяешь нормальными знаками, написать не могу, к сожалению
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.