Сас111
19.05.2023 07:34

Здравствуйте,нужно решить задачу )!​
Язык Паскаль


Здравствуйте,нужно решить задачу )!​Язык Паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Dayana2005041
12.06.2021 01:55

const

 n=5;

var

 i, j : integer;

 a: array[0..n-1] of integer = (1,2,3,4,5);

 b: string;

begin

 for i := 0 to n-1 do begin

   b := ' YES';

   for j := 2 to a[i]-1 do

     if a[i] mod j = 0 then

       b := ' NO';

   if a[i]=1 then b:= ' NO';

   writeln(a[i], b)

 end;

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота