Регистрация
мама1033
16.09.2021 08:06
Информатика
Есть ответ 👍

Подсчитайте количество элементов одномерного массива,которые со своим номером и при этом кратны 7

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

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

kookie04
kookie04
4,6(38 оценок)

uses crt; var s,i: integer; a: array[1..1000] of integer; begins: =0; for i: =1 to 1000 dobegina[i]: =i; if ((a[i] = i ) and ( a[i] mod 7 = 0)) theninc(s); end; writeln(s); readln; end.

Folknesss14
Folknesss14
4,4(19 оценок)
Var i: integer; begin for i: =10 to 99 do if (i div 10)=(i mod 10)*2 then write(i: 4); end.

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