У кожному квадраті щось напиши.Але не пиши забагато.Орієнтована кількість речень на слайді-до пяти.Використовуй короткі речення.У кожному реченні-до восьми слів.Щоб створити презентацію треба запустити на виконання PowerPoint.Це робиться так:Вибери кнопку Пуск.Послідовно вибери <u>Усі програми,Microsoft Offise.Microsoft Office PowerPoint2007</u>
=B$1*$A2
как-то так
...............................................
Если я правильно понял ,что нужно.
var
a,b:integer;
begin
readln(a,b);
if (a>b) then writeln(a,' > ',b)
else
if (a<b) then writeln(a,' < ',b)
else
writeln(a,' = ',b);
end.
по алгоритму евклида:
var a,b:integer;
begin
readln(a,b);
repeat
if a>b then
a:=a mod b
else
b:=b mod a;
until (a=0) or (b=0);
writeln(a+b);
end.
-------------------------
var a,b:integer;
begin
readln(a,b);
while (a<>0) and (b<>0) do
if a>b then
a:=a mod b
else
b:=b mod a;
writeln(a+b);
end.