Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
Максим же, ну :) Другие не подходят, тк либо начинаются на гласную, либо заканчиваются
Ответ:
a = input()
b = input()
if (a == 'нет' or a == 'да') and (b == 'нет' or b == 'да'):
print('ВЕРНО')
else:
print('НЕВЕРНО')
Объяснение:
Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.