Спо информатике в паскале задано натуральное число n. найти количество натуральных чисел, не превосходящих n и не делящихся ни на одно из чисел 2,3,5

142

239

Посмотреть ответы 2

Ответы на вопрос:

Danyaukos

Информатика

4,4(91 оценок)

var n,i,s: integer;

begin

write('введите число -> ');

readln(n);

for i: =1 to n do

if (i mod 2 = 1) and (i mod 3 = 1) and (i mod 5 = 1) then s: =s+1;

if s=0 then writeln('таких чисел не существует') else writeln(s,' чисел');

end.

kuku1337

Информатика

4,5(56 оценок)

const

n=30;

var

a: array [1..n] of integer;

i,min: integer;

begin

for i: =1 to n do begin

readln (a[i]);

if a[i]> =20 then min: =a[i];

end;

for i: =2 to n do

if (a[i]> =20) and (a[i]< min) then min: =a[i];

writeln (min);

readln;

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.