Program asd;
var a,b:integer;
begin
a:=10;
writeln('1=10');
for b=2 to 10 do
begin
writeln(b,'=',a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
<span><span>End;
<em>Пример программы с использованием данной функции:</em>
</span>Program Example;
Var a, b: Integer;
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('НОД: ', NOD(a, b));
ReadLn;
<span>End.</span></span>
Сочинениеч какой кампьютер я хочу
Я хочу компьютер который всё выдержит игры музыки видео и так далее и домашнее задание узнать вот вот почему хочу себе новый компьютер
Это проверка текста на орфографию.
Словарь храниться в файле,в базе данных, зависит от реализации ОС или ПО. Также словарь может закачиваться или запрашиваться из Интернета.
11=2 в 3 степени+2 в 1+2 в 0=1011
35=2 в 5+2 в 1+2 в 0=100011