Выберите три прикладные программы на компьютере и наполните
таблицу. например, мѕ word, ms excel, ms powerpoint. для ана
лиза можете выбрать другие программы.
параметры анализа
ms word
ms excel
ms
powerpoint
назначение
сходство интерфейсов
различие интерфейсов
сходство инструментов
различие инструментов
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.