1. Для нахождения НОД используем алгоритм Евклида.
var a, b, i: integer;
begin Write('Введите два натуральных числа '); Readln(a, b); while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; Writeln('НОД этих чисел равен ', a) end.
Тестовое решение: Введите два натуральных числа 3264 1296 НОД этих чисел равен 48
2. Тут все намного проще, алгоритм очевиден.
var a, i: integer;
begin Write('Введите натуральное число '); Readln(a); i := 2; while (a mod i) <> 0 do i := i + 1; Writeln('Минимальный делитель равен ', i) end.
Тестовое решение: Введите натуральное число 187 Минимальный делитель равен 11
1.первое число - целочисленный тип второе - вещественный разные диапазоны 2.1) s := (x1+x2)/2 2) dec(k) или k:=k-1 3) inc(i) или i:=i+1 4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша; kt, kr, kk - количество тетрадей, ручек и карандашей)
2. а) значения функции y=х(в квадрате) var y,x: real
б) площади прямоугольника var a,b,s: real
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек var kv:integer; st,so,sum: real
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей var kvt,kvr,kvk:integer; st,sr,sk,sum: rea
y=((b**2+5*b*c)/(abs(a-4*a*c)))*a*(3*b+c**2)