var a,b:integer;
function f(a,b:integer):integer;
begin
if (a<>0) and (b<>0) then begin
if (a>b) then
a:=a mod b else
b:=b mod a;
f(a,b);
end else
writeln(abs(a-b));
end;
BEGIN
writeln('Введите 2 натуральных числа');
readln(a,b);
write('НОД(',a,',',b,') = ');
f(a,b);
end.
var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
, следовательно, 3 бита - вес одного символа.
23 * 3 = 69 бит.
Моделирование используется в самолетостроение, в архитектуре при строении зданий и мостов и статуй, в роботостроении
Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.