Excel для подсчётов, Word для отчётов, Outlook для отправки этого всего) А вообще, сейчас специальные программы используют, офисные редко (ими же учиться надо пользоваться, а не хочется никому время тратить) :)
Его используют для связи слов
По Русски переводится И
' GCD - функция, которая принимает два числа, для которых нужно найти НОД
' К посту приложена фотография с блок-схемой
Function GCD(m As Integer, n As Integer) As Integer
m = Abs(m)
n = Abs(n)
For i = 1 To n * m
If m Mod i = 0 And n Mod i = 0 Then
GCD = i
End If
Next
End Function
Карп корп кора коза по другому не знаю
*****************C case*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
case a of
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>