Giammy
3) var a,b,c:longint; begin write('Write a,b,c: '); readln(a,b,c); If (a=b) or (a=c) or (b=c) then writeln('YES') else writeln('NO'); readln end. 4) var a:longint; begin write('Write a: '); readln(a);
write('a. '); if (a div 10)=(a mod 10) then writeln('YES') else writeln('NO');
write('b. '); if (a div 10)<(a mod 10) then writeln(a mod 10) else if (a div 10)=(a mod 10) then writeln((a div 10)=(a mod 10)) else writeln(a div 10);
write('c. '); if ((a div 10)+(a mod 10)) mod 2=0 then writeln('NO') else writeln('YES');
write('d. '); if ((a div 10)+(a mod 10)) div 10>0 then writeln('YES') else writeln('NO'); readln end.
Answers & Comments
var
a,b,c:longint;
begin
write('Write a,b,c: '); readln(a,b,c);
If (a=b) or (a=c) or (b=c)
then writeln('YES')
else writeln('NO');
readln
end.
4)
var
a:longint;
begin
write('Write a: '); readln(a);
write('a. ');
if (a div 10)=(a mod 10)
then writeln('YES')
else writeln('NO');
write('b. ');
if (a div 10)<(a mod 10)
then writeln(a mod 10)
else
if (a div 10)=(a mod 10)
then writeln((a div 10)=(a mod 10))
else writeln(a div 10);
write('c. ');
if ((a div 10)+(a mod 10)) mod 2=0
then writeln('NO')
else writeln('YES');
write('d. ');
if ((a div 10)+(a mod 10)) div 10>0
then writeln('YES')
else writeln('NO');
readln
end.