Begin
writeln('55555');
<span>writeln('4444');
</span><span>writeln('333');
</span><span>writeln('22');</span>
end.
ХИБНІ:
1.Сьогодні було дуже спекотно.
2.Зараз я сплю.
3.Через 2 години буде Новий Рік.
ІСТИННІ:
1.Мене звати...
2.Зараз на дворі осінь.
3.Мій найулюбленіший предмет...
uses crt;
const n=3;
var i,s:integer;
k:string;
a:array[1..10] of integer;
begin
repeat
clrscr;
s:=0;
writeln('Задйате стаж работы в анкеты ');
for i:=1 to n do begin
write('Анкета ', i,': '); readln(a[i]);
if a[i]>=5 then inc(s)
end;
writeln('По реузльтатам подходят ', s,' анкеты');
writeln('Повторить - Enter. Выход - любой символ + Enter');
readln(k);
until k<>''
end.
Ответ:
Код дан в приложении.
Объяснение:
Мы просто пробегаемся до корня числа и пытаемся найти такой делитель. Если мы уже превысили корень, но так и не нашли ответ, значит, число простое, и мы выводим сам x.
Асимптотика решения: