По м о г и т е .программирование на языке pascal. 1) два числа называются дружественными, если каждое - id995860420230329 от КириллFace 29.03.2023 04:33

Question

Информатика: По м о г и т е .программирование на языке pascal. 1) два числа называются дружественными, если каждое равно сумме делителей другого, исключая само число. найти все дружественные числа, не превосходящие k.2) заменить в массиве первый кратный 5 элемент нулем.3)даны два массива. получить третий массив, включая в него только те элементы, которые встречаются в исходных массивах только раз.

КириллFace · Accepted Answer

1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
end.

2) var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.

MOGZ ответил