Var n,a,b:integer; begin read(n); a:= n div 10; b:=n mod 10; if a=b then write('Число симметричное') else write('Число несимметричное'); end.
var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.
Это Микрофон если что, странно это не знать)
Мынау кандай сабак?
Кай сынып?
Program n1;
<span>var x,y:real;
</span><span>begin
</span><span>readln(x);
</span><span>y:=round(x);
</span><span>if y=x then writeln('число не дробное')
</span><span>else writeln('число дробное');
</span><span>end.</span>