решите пожалуйста 4 уровень...

pаvеl1 @pаvеl1

July 2022 1 10 Report

решите пожалуйста 4 уровень

Answers & Comments

pacixor Var
A: array [1..10] of integer;
i, k, z: integer;
begin
z := 0;
write('Введите k = ');
readln(k);
for i := 1 to 10 do
begin
readln(A[i]);
if A[i] mod k = 0 then z := z + 1;
end;
writeln('Чисел кратных ', k, ' = ', z);
end.

1 votes Thanks 1

More Questions From This User See All

pаvеl1 August 2022 | 0 Ответы

помогите пожалуйста кто чем сможнт...

pаvеl1 August 2022 | 0 Ответы

Назовите факторы тормозящие развитие сельского хозяйства в России в начале XX ве...

pаvеl1 August 2021 | 0 Ответы

помогите с решением 1, 3, 5, 7, 9...

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

rarrrrrrrr August 2022 | 0 Ответы

о чем должны позаботиться в первую очередь взрослые при организационном вывозе н...

danilarsentev August 2022 | 0 Ответы

Есть два станка на которых выпускают одинаковые запчасти один производит a запча...

myachina8 August 2022 | 0 Ответы

Найти по графику отношение V3:V1. В ответах написано 9, но нужно решение...

ydpmn7cn6w August 2022 | 0 Ответы

Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...

millermilena658 August 2022 | 0 Ответы

Определите Как создавалась и кто создавал арабское государство в крации...

MrZooM222 August 2022 | 0 Ответы

Ч. Айтманов в рассказе "Красное яблоко" использует метод рассказ в рассказе. Опи...

timobila47 August 2022 | 0 Ответы

каково было назначение каждой из частей византийского храма? помогите пожалуйста...

ivanyyaremkiv August 2022 | 0 Ответы

Участник Знаний August 2022 | 0 Ответы

Пожалуйста!!!!!!!!!!!!...

sarvinozwakirjanova August 2022 | 0 Ответы

помогите пожалусто пж...

Helpful Links

Политика конфиденциальности

Правила и условия

Контакты

Helpful Social

Copyright © 2025 SCHOLAR.TIPS - All rights reserved.