Создавать модель - это значит сконструировать предмет в уменьшенном размере.
Pascal (гдето так...)
program treska;
var a,i,k,b,b2,b3:integer;
begin
for i:=100 to 999 do
begin
a:=sqr(i);
k:=a-i;
b:=a-k;
if i=b then write (i,' ');
end;
readln
end.
Var i,n,m,sum:integer;r:real;
Begin
Randomize;
write('Введите количество целых десятичных чисел');
Readln(n);
for i:=1 to n do begin
m:=random(100)-50;
write(m:4);sum:= sum + m;end;
writeln;
r:= sum/n;write('среднее значение ', n,' целых десятичных чисел ',r:8:4);<span>end.</span>
Var
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
Read(t);
if (t mod 6=0) and (t mod 10=2) then Inc(k)
end;
Writeln(k)
end.