var a,b:integer;
begin
readln(a);
b:=a div 10;
b:=b mod 10;
if (b=3) then write('Стоит 3') // Если b=3, то выводит 'Стоит 3'
else write('Не стоит 3') // Если b не равно 3, то выводит 'Не
стоит 3'
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b:integer;
begin
readln(a);
b:=a div 10;
b:=b mod 10;
if (b=3) then write('Стоит 3') // Если b=3, то выводит 'Стоит 3'
else write('Не стоит 3') // Если b не равно 3, то выводит 'Не
стоит 3'
end.