Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program risovalka;
uses crt,graphabc;
var xc,yc,r1,r2,rc,ro,n,i,x,y: integer;
a: real;
begin repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');
read(n);
until n in [5..10];
clrscr; hidecursor;
xc: =windowwidth div 2;
yc: =windowheight div 2;
r1: =40;
r2: =120;
rc: =100; ro: =30;
a: =2*pi/n;
circle(xc,yc,r2);
circle(xc,yc,r1);
for i: =1 to n do begin x: =xc+round(rc*cos(a*i));
y: =yc-round(rc*sin(a*i));
circle(x,y,ro);
end.
р треугольника= сложить все стороны
на паскале:
var
n,s,p: integer;
begin
p: =n mod 10;
if p mod 2=0 then writeln ('оканчивается на четную цифру')
else writeln ('оканчивается на четную цифру');
while n> 0 do
n: =n div 10;
s: =s+1;
end;
writeln ('количество цифр в числе', s);
var a: array[0..10] of integer;
i,x: integer;
read(x);
randomize;
for i : = 1 to 10 do begin
a[i]: =random(4);
if a[i]=x then writeln('a[',i,']');
Популярные вопросы