Написать 2 программы на языке Pascal:
Дан целочисленный двумерный массив, размерности n х m. Найти количество элементов кратных 6
Дан целочисленный двумерный массив, размерности n х m. Вывести на экран элементы, которые являются квадратами какого-либо числа.
Ответы
Ответ дал:
0
Ответ:
1)const
nmax=100;
var
a: array[1..nmax] of integer;
n,i,h: integer;
begin
write('Сколько элементов в массиве? ');
readln(n);
h:=0;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(99)+1;
write(a[i],' ');
if (a[i] mod 6=0) then h:=h+1;
end;
writeln;
writeln('В массиве ',h,' элементов, кратных 6');
end.
2)const
n = 10;
numbers : array [1..n] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
var
i : integer;
z : real;
begin
writeln('данные числа:');
for i := 1 to n do
write(numbers[i] : 4);
writeln;
writeln('числа которые являются квадратами:');
for i := 1 to n do
begin
z := trunc(sqrt(numbers[i]));
if z * z = numbers[i] then write(numbers[i] : 4)
end
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад