Ответы
Ответ дал:
0
var i, p: integer;
M: array [1..4] of integer;
begin
writeln('Введите 4 числа: ');
for i := 1 to 4 do
readln (M[i]);
p := 0;
writeln('Четные числа кратные 3:');
for i := 1 to 4 do
if (M[i] mod 2 = 0) and (M[i] mod 3 = 0) then
begin
write (M[i], ' ');
inc(p);
end;
if p = 0 then write('Таковых нет');
end.
M: array [1..4] of integer;
begin
writeln('Введите 4 числа: ');
for i := 1 to 4 do
readln (M[i]);
p := 0;
writeln('Четные числа кратные 3:');
for i := 1 to 4 do
if (M[i] mod 2 = 0) and (M[i] mod 3 = 0) then
begin
write (M[i], ' ');
inc(p);
end;
if p = 0 then write('Таковых нет');
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад