Функции Excel:
1. КОРЕНЬ (число) - получаем значение квадратного корня (число>0)
=КОРЕНЬ(2,25) → 1,5
2. НОД (число1; число2) - получаем наибольший общий делитель (наибольшее целое число, на которое делятся число1 и число2 без остатка) двух (можно нескольких) целых чисел (число1>0, число2>0)
=НОД(45; 12) → 3
3. НОК (число1; число2) - получаем наименьшее общее кратное (наименьшее целое число, которое делится на число1 и число2 без остатка) двух (можно нескольких) целых чисел (число1>0, число2>0)
=НОК(12; 5) → 60
4. ОКРУГЛ (число; количество разрядов) - получаем число округлённое до указанного количества разрядов (количество разрядов = 0 - округляется до ближайшего целого; количество разрядов > 0 - округляется до указанного количества дробных разрядов - десятых, сотых и т.д.; количество разрядов < 0 - округляется до указанного количества целых разрядов - десятков, сотен и т.д.)
=ОКРУГЛ(1,573; 0) → 2
=ОКРУГЛ(1,573; 2) → 1,57
=ОКРУГЛ(15,73; 
) → 20
5. ОСТАТ (число; делитель) - получаем остаток от деления числа на делитель, полученное число имеет тот же знак, что и делитель (делитель ≠ 0)
=ОСТАТ(7; 5) → 2
=ОСТАТ(5; 7) → 5
=ОСТАТ(7; 7) → 0
6. РИМСКОЕ (число) - получаем из арабского числа римское в текстовом формате (число>0)
=РИМСКОЕ(2020) → MMXX
Объяснение:
Вместо число можно указывать ссылку на ячейку
Объяснение:
Программа для while
program whil;
var x,i,n:integer;
y:real;
begin
i:=1;
n:=0;
Writeln ('Введите число для которого необходимо определить делители: ');
Read (x);
WHILE (i<=x) DO
begin
if (x mod i=0) then
begin
y:=x/i;
n:=n+1;
Writeln (n,' делитель числа',x,' : ',y );
end;
i:=i+1
end;
Writeln ('Число делителей числа', x, ' : ',n)
end.
Программа для repeat
program repeats;
var x,i,n:integer;
y:real;
begin
i:=0;
n:=0;
Writeln ('Введите число для которого необходимо определить делители: ');
Read (x);
repeat
i:=i+1;
begin
if (x mod i=0) then
begin
y:=x/i;
n:=n+1;
Writeln (n,' делитель числа',x,' : ',y );
end;
end;
until i>=x;
Writeln ('Число делителей числа', x, ' : ',n)
end.
