Вопрос по информатике:
Написать на паскале Дана матрица 3 на 3. Найти количество элементов матрицы кратных 5
- 26.01.2018 00:44
- Информатика
- remove_red_eye 5086
- thumb_up 9
Ответы и объяснения 1
Program al;
const n=3;
var a:array [1..n,1..n] of integer;
k,i,j:integer;
begin
Writeln('vvedite massiv:');
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
Writeln;
end;
k:=0;
for i:= 1 to n do
for j:= 1 to n do
if a[i,j] mod 5=0 then inc(k);
writeln('kolicestvo cisel kratnih 5=', k);
readln;
end.
- 26.01.2018 02:43
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.