(ДАЮ 50 БАЛОВ) Дано одновимірний масив перших ста натуральних чисел. Вивести на екран елементи масиву, що кратні 7( бажано рядками по 10 у кожному) Інформатика 9 клас. Паскаль.
Ответы
Ответ дал:
1
Ответ:
Объяснение:
const
n =100;
var
a : array[1..n] of Integer;
j , k: integer;
s : string;
begin
// input array
for j := 1 to n do begin
a[j] := j;
end;
k := 0;
s := '';
for j := 1 to n do begin
if a[j] mod 7 = 0 then begin
Inc(k);
s := s + IntToStr(a[j]) + ' ';
if k = 10 then begin
ListBox1.Items.Add(s);
s := '';
k := 0;
end;
end;
end;
if s<>'' then
ListBox1.Items.Add(s);
end;
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
8 лет назад