Предмет: Информатика,
автор: Аноним
1.Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры.
2.Напишите функцию, которая находит наибольший общий делитель для двух заданных чисел.
Ответы
Автор ответа:
0
1)
var n,i:integer;
begin
Read(n);
for i:=1 to n do
write(i,' ');
end.
2) Функция:
function nod(a, b: Integer): Integer;
Var t: Integer;
Begin
If b > a Then
Begin
t := a;
a := b;
b := t;
End;
t := a;
While t > 0 Do
Begin
Result := t;
t := t- b;
End;
End;
var n,i:integer;
begin
Read(n);
for i:=1 to n do
write(i,' ');
end.
2) Функция:
function nod(a, b: Integer): Integer;
Var t: Integer;
Begin
If b > a Then
Begin
t := a;
a := b;
b := t;
End;
t := a;
While t > 0 Do
Begin
Result := t;
t := t- b;
End;
End;
Приложения:


Автор ответа:
0
можете проверить..
Автор ответа:
0
и прошу чтобы зделали информатику потому что я пишу сочинение на 400 слов
Автор ответа:
0
не некогда проверять
Автор ответа:
0
...
Автор ответа:
0
Сейчас добавлю скриншоты работы
Похожие вопросы
Предмет: Химия,
автор: dariashoronova
Предмет: Английский язык,
автор: c89413925
Предмет: История,
автор: olnoleg01
Предмет: Математика,
автор: moon27
Предмет: Биология,
автор: JamesBond666