var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Ответ:
1.ЕRP-консультант
2.ЕRP-программист
3.IT-евангилист
4.WEB-дизайнер
<em>5.</em><em>W</em><em>E</em><em>B</em><em>-</em><em>п</em><em>р</em><em>о</em><em>г</em><em>р</em><em>а</em><em>м</em><em>м</em><em>и</em><em>с</em><em>т</em>
Сейчас компьютерные презентации плотно вошли в нашу жизнь. Это отличный способ подачи информации, и следовательно, используются компьютерные презентации, где нужно подавать информацию. В школах, в университетах, во многих других образовательных учреждениях, в среднем, малом и крупном бизнесе, в государственных предприятиях. Как-то так.