Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
конечно бред. оно логично звучит и без заполнения пробелов
думаю можно туда подставить тип компа. например мак или пк (вечная война между яблоком и мелкомягкими)
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.
program ssd;
uses crt,graph;
var d,m: integer;
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
за тридевять земель или к чёрту на кулички
Популярные вопросы