алг
нач
<em>цел </em>k, l
k := int(rand(5, 80));
<u>вывод </u>"Угадайте число", нс | k
<u>ввод </u>l
<u><em>если </em></u>k = l <u><em>то</em></u>
<u>вывод </u>"Вы совершенно правы, сударь"
<u><em>иначе</em></u>
<u>вывод </u>":Р"
<u><em>все</em></u>
<span>кон</span>
Круги Эйлера — геометрическая схема, с помощью которой можно изобразить отношения между подмножествами
var
a,b:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.