Вопрос по информатике:
1.Найти сумму всех не отрицательных чисел кратных 5 в промежутке от 1 до 100
2.Найти сумму элементов двумерного массива, расположенной на главной плоскости массив 10;10
Пожаловаться
- 26.07.2018 09:34
- Информатика
- remove_red_eye 14777
- thumb_up 47
Ответы и объяснения 1
1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
Пожаловаться
- 27.07.2018 05:41
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы