Решите 2,3,4,5 если что не понятно ,можно одно задание не решать только три заданий! но...

Question

Решите 2,3,4,5
если что не понятно ,можно одно задание не решать только три заданий!
но лучше все решить."Составление программ с циклом For)

---

Answer 1

Const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
k:=0;
for i:=1 to n do begin
  if (a[i] mod 2=0)and(a[i]mod 3=0) then
    k:=k+1;
end;
writeln('кол-во чисел кратных и 2-м и 3-м=',k);
end.



const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
for i:=1 to n do begin
  if (a[i]div 10)/(a[i]mod 10)=2 then
    write(a[i],' ');
end;
end.

const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
for i:=1 to n do begin
  if a[i]mod 10=a[i] div 100 then
write(a[i],' ');
end;
end.


const n=100;
var a:array[1..n] of integer;
      i,k:integer;
begin
...//заполняешь массив
for i:=1 to n do begin
  if a[i]mod((a[i]mod 10)+(a[i]div 10))=0 then
write(a[i],' ');
end;
end.