Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');
readln
end.
строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.
автоматизация, легкость в использовании, меньше затраты времени на обработку
1)сила всех и глубина вростания репки, так же состояние здоровья каждого и состояние почвы
а так же не завалялась ли где нормальная лопата
2)смотря что такое по братски, но зная карлсона, он возьмет себе большой
3)главное чтоб пончику хватило. а больше он все равно сделать не в состоянии
4) радиус двери, радиус вини, прирост от сгущенки, прирост от меда, кол-во того и другого, скорость похудения и тп
Популярные вопросы