Вопрос Магистры языка Pascal вы мне нужны!

[Egor_Kreed]

Надо решить 2 задачки, без модулей, версия pascal abc, только через цикл repeat
1.Напечатать все простые числа не превосходящие данного(число вводится с клавиатуры)
2. Введите два числа (например A=45 и В=8) и найдите их частное от деления нацело(в переменной А), используя только операцию вычитания.
Нужно на уровне 9 класса.
Без награды не останетесь)

 

[PAI]

Надо решить 2 задачки, без модулей, версия pascal abc, только через цикл repeat
1.Напечатать все простые числа не превосходящие данного(число вводится с клавиатуры)
2. Введите два числа (например A=45 и В=8) и найдите их частное от деления нацело(в переменной А), используя только операцию вычитания.
Нужно на уровне 9 класса.
Без награды не останетесь)

Вторая задача:
var a,b,x:integer;
begin
readln(a, b);
x:= 0;
repeat
x := (x + 1);
a := (a - b);
until a < b;
writeln(x)
end.

 

[Egor_Kreed]

Вторая задача:
var a,b,x:integer;
begin
readln(a, b);
x:= 0;
repeat
x := (x + 1);
a := (a - b);
until a < b;
writeln(x)
end.

дай бог тебе здоровья

 

[PAI]

Надо решить 2 задачки, без модулей, версия pascal abc, только через цикл repeat
1.Напечатать все простые числа не превосходящие данного(число вводится с клавиатуры)
2. Введите два числа (например A=45 и В=8) и найдите их частное от деления нацело(в переменной А), используя только операцию вычитания.
Нужно на уровне 9 класса.
Без награды не останетесь)

:smiley:
Первая задача за n * sqrt(n):
var n,i,j:integer;
flag:boolean;
begin
readln(n);
i := 2;
repeat
j := 2;
flag := False;
repeat
if (i mod j = 0) and (i > j) then flag := True;
j := (j + 1);
until (j * j) > n;
if (flag = False) then writeln(i);
i := i + 1;
until i > n;
end.

 

[dota]

дай бог тебе здоровья

 

[BFG9k]

Посмотреть вложение 200045

Ну вот она и награда