Microsoft Office Power Point
Program Program1;
var
i,k,a,b,c:integer;
begin
k:=0;
for i:=100 to 999 do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
if (b>a) and (c>b) then inc(k);
end;
writeln('Всего: ',k);
end.
Uses crt;
var i,k,kol,s:integer;
begin
kol:=0;
s:=0;
read(k);
for i:=1 to 50 do
if i mod 10=k then
begin
inc(kol);
s:=s+i;
end;
writeln(s);
writeln(kol);
end.
Это элемент некоторой системы потому что Земля планета солнечной системы
1. существенные признаки объекта-оригинала
2. разные модели объекта
3. схема метро, схема узора для вязания крючком, график зависимости расстояния от времени, физическая карта.