Информатика, сделайте правильно, можно не в тетради
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Фонмен безендірілген және безендірілмеген слайдтар-ды салыстыр.
Автор: troyasport
Найти все двузначные числа, сумма квадратов цифр которых кратна m.
Автор: iordanekaterina
Построить блок схему, которая вычисляла бы функцию f(x, y)=x+2 y.
Автор: АлександровнаАслан1571
Тема: Знакомство с IDE Сделать: конспект в Тетрадь по данной теме.
Автор: Артем Уберт
Написать программу в паскале для p=1*1/2*1//n и s= sqrt(1)+sqrt (1+2)+sqrt(1+ (1+n)
Автор: Кристина_Memmedov
Сколько байтов информации содержит сообщение обьемом 22кбит
Автор: idalbaev
Python по данному числу n вычислите сумму 4(1-1/3+1/5-1/7++(-1)n/(2n+
Автор: Спиридонова
var
a:array[0..9, 0..9]of integer;
i, j, s : integer;
begin
randomize;
for i:=0 to 9 do begin
for j:= 0 to 9 do begin
a[i,j]:= random(50);
write(a[i,j],' ')
end;
writeln();
end;
s:=0;
for i:=0 to 9 do
if a[i,9-i] mod 3 = 0 then
s:=s+a[i,9-i];
writeln(s)
end.
Объяснение:
var
a:array[0..9, 0..9]of integer;
i, j, s : integer;
begin
randomize;
for i:=0 to 9 do begin
for j:= 0 to 9 do begin
a[i,j]:= random(50);
write(a[i,j],' ')
end;
writeln();
end;
s:=0;
for i:=0 to 9 do
if a[i,9-i] mod 3 = 0 then
s:=s+a[i,9-i];
writeln(s)
end.