Program qwe;
var A:longint;
s:byte;
begin
write('Введите число: ');
readln(A);
s := 0;
A := abs(A);
while A > 0 do
begin
if not odd(A) then
inc(s, A mod 10);
A := A div 10
end;
writeln('Сумма чётных цифр = ', s);
readln
<span>end</span>
Моя интуиция подсказывает, что это паскаль, если так, тогда нужны скобки, иначе машина будет выдавать ошибку. Полный код будет выглядеть так:
var x:integer; y:real;
begin
readln(x);
if (x>=-2) and (x<=2) then y:=sqr(x)/4;
writeln(y);
end.
плата вроде как, если не ошибаюсь
Всем что осизается имеет запах ,форму,звуки?и.т.д