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.
Поделитесь своими знаниями, ответьте на вопрос:
Скільки байт потрібно, щоб закодувати кожну цифру натуральних чисел від 1 до 100? один із відомих методів кодування повідомлень стародавнього світу носить ім’я юлія цезаря (і ст. до н. з використанням цього методу слово інформатика буде закодоване як крчсупгхйнг. визначте метод кодування юлія цезаря і закодуйте, використовуючи цей метод, слово калькулятор. в одному рядку деякого тексту розміщується в середньому 60 символів, а на одній сторінці - 40 рядків. скільки закодованих сторінок цього тексту можна взяти, щоб довжина двійкового коду не перевищила 80 гбайт, якщо для кодування використати таблицю ипісойе? чому дорівнює довжина двійкового коду повідомлень: інформатика, ура! , почалися кані! у системі кодування коі8-u?