Предмет: Информатика, автор: Аноним

1.Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры.
2.Напишите функцию, которая находит наибольший общий делитель для двух заданных чисел.

Ответы

Автор ответа: Giammy
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;


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