Составить программу, которая обеспечит ввод 15 чисел и определит сколько из них ...

July 2022 1 12 Report

Составить программу, которая обеспечит ввод 15 чисел и определит сколько из них отрицательных, которые кратны 3.

Answers & Comments

Verified answer

Var a,i,k:integer;
begin
k:=0;
writeln('Введите 15 целых чисел:');
for i:=1 to 15 do
begin
readln(a);
if (a<0)and(a mod 3 = 0) then k:=k+1;
end;
writeln('k = ',k);
end.

Пример:
Введите 15 целых чисел:
75
-65
15
-68
28
-42
80
-76
51
-32
18
-16
-45
70
-65
k = 2

1 votes Thanks 1

ilyaparamonov Самое забавное, что у меня почти такое же получилось. Спасибо.

Answers & Comments

Verified answer

СРОЧНО!!!! Помогите с примерами по алгебре!!!! прошу вас!!!...

24 балла.Ф.Абрамов "О чём плачут лошади" какова основная мысль этого рассказа и ...

Из элементов массива A, состоящего из 10 элементов, заполненный случайным образо...

основной этап обмена веществ и энергии происходит в: а)клетке б) пищеварительной...

Биология 8 класс. Что обеспечивает рост и развитие организма? а)белки б)жиры в)п...

Предохраняют организм от переохлаждения и механических повреждений а)белки б)жир...

Связывают вредные для организма вещества и способствуют их выделению а)белки б)ж...

Можно ли по состоянию кожных покровов определить, какого витамина ему не хватает...

Задача на паскале. С клавиатуры вводится четырёхзначное число. Найдите разность ...

Найдите период функции f(x)= cos^2 3x...

рекомендуемые вопросы

Helpful Links

Helpful Social