Var
x: integer;
begin
write('Число: ');
readln(x);
writeln('В числе десятков=', x div 10, '; единиц=', x mod 10);
end.
Задание 6:
1. B
2. D
3. A
4. C
Задание 7:
program vibory;
var a:integer;
begin
readln(a);
if a>=18 then writeln('Вы имеете право голосовать')
else writeln('Вы не имеете право голосовать');
end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,b,c:integer;
begin
readln(a,b,c);
writeln('Минимальное ', min(min(a,b),c));
end.
Тестовое решение:
67 34 89
Минимальное 34
#3
истина, если (-3<=x<=3 и -3<=x<=3) и (x*x+y*y)>2
иначе - ложь
Получаем (-3<=x<=3 и -3<=x<=3) и (x*x+y*y)>2