Var
a, f, f1, i: integer;
begin
f := 0;
f1 := 0;
write('Введите 10 чисел:');
for i := 1 to 10 do
begin
read(a);
if(a > 10) then f := f + 1;
if(a > 5) then f1 := f1 + 1;
end;
if(f > 4) then write('Караул! Сейчас все взорвется')
else
begin
writeln(f1, ' чисел(о)(а) больше 5');
write(f, ' чисел(о)(а) больше 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>
var
a: real;
i: integer;
mas: array[0..999] of real;
begin
a := -4.5;
i := 0;
while a <= 3.5 do
begin
mas[i] := a;
a += 0.5;
write(mas[i], ' ');
i += 1;
end;
end.
Ответ:
Объяснение:
Замечание: Там где int divisor = 1, должно быть 2