Не бігай по класу повикручуєш ноги Нетреба чіпати компютер бо током шарахне і читель правий хо ти що хочеш кажи
<span>Я НЕ ОЧЕНЬ ПОНЯЛА ВОПРОС поэтому на 100% в ответе не уверена </span>
<span>В условии задачи подразумевается, что цены выражаются целым числом рублей. Число ложек, цена которых 200 рублей, равное числу вилок, цена которых 176 рублей, должно быть делителем 200 и 176. Таких чисел три – 2, 4. И 8. Поэтому цена одной ложки равна либо 100 рублей, либо 50 рублей, либо 25 рублей. Условию задачи удовлетворяет последняя цена – 25 рублей. Следовательно, 5 ложек стоят 125 рублей. </span>
Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.
Function IsPrime(n:longint):boolean;
var
found:boolean;
p:longint;
begin
if n<4 then IsPrime:=True
else begin
found:=(n mod 2=0);
p:=3;
while (not found) and (sqr(p)<=n) do
begin found:=(n mod p=0); p+=2 end;
IsPrime:=not found
end
end;
var
a,b,i:longint;
begin
Write('Введите начало и конец интервала: ');
Readln(a,b);
for i:=a to b do
if IsPrime(i) then Write(i,' ');
Writeln
end.
