Дано случайное число х ,вывести это число на экран .Если оно кратно 2 и не кратно 3,то напечатать «Да»,в

противном случае напечатать»Нет»

Ответ №1

var

 r: Integer;

begin

   Randomize;

   r := Random (100);

   if (r mod 2 = 0) and (r mod 3 <> 0) then

     WriteLn (‘Да, число ‘ + IntToStr (r) + ‘ кратно 2 и не кратно 3’)

   else

     WriteLn (‘Нет, для числа ‘ + IntToStr (r) + ‘ условие не выполняется’);

end;

Ответ №2

(решение на Паскале)

program chislo;

var x:longint;

begin

readln(x);

writeln(x);

if (x mod 2 =0)and (x mod 3<>0) then write (‘Да’) else write (‘Нет’);

end.

Оцените статью
Сервис вопросов и ответов для школьников | educatic.ru
Добавить комментарий