Var
a:integer;
begin
writeln('a ?');
readln(a);
if (a mod 10)=(a div 100) then
writeln('Yes')
else
writeln('N');
end.
Жёсткий диск - винчестер !
var a:array [1..100] of real;
i,n:integer;
t:real;
Begin
randomize;
n:=20;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
t:=a[1]
for i:= 1 to n do begin
a[i]:=a[i]/t ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
End.
Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.