Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
"солнце" - круг с точкой в центре
"идти" - две ноги
"хлеб" - полукруг
"рот" - сильно вытянутый полуовал
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.
a в квадрате плюс b в квадрате:
sqr(a) + sqr(b);
var
i: integer;
s: real;
m: array[1..2,1..6] of real;
s: =0;
for i: =1 to 6 do
readln(m[1,i]);
readln(m[2,i]);
s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;
end;
writeln(s);
Популярные вопросы