Регистрация
DimaRostovonDon
21.06.2023 17:03
Информатика
Есть ответ 👍

2. Скласти програму знаходження кількості чисел, що діляться націло на 4 серед усіх цілих додатних чисел від 1 до деякого заданого числа N включно. Програму потрібно написати в загальному вигляді, тобто N кожен раз при запуску програми запитується у користувача. Наприклад, при введеному N = 19 . Від 1 до 19 націло на 4 діляться 4, 8, 12, 16. Кількість таких чисел буде очень !​

145
226
Посмотреть ответы 1

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

pokintokin
pokintokin
4,8(79 оценок)

Відповідь:

Пояснення:

const N=15;

var

 i:integer;

 mas:array[1..N] of integer;

begin

 randomize;

 for i:=1 to N do

 begin

   mas[i]:=random(-10,10);

   write('[',i,']',mas[i],'  ');

 end;

 writeln;

 writeln('Первый элемент: ',mas[1]);

 writeln('Последний элемент: ',mas[N]);

 writeln('Элемент, стоящий на среднем месте: ',mas[N div 2]);

end.

Популярно: Информатика