Pascall
uses crt,graphABC;
var w:char;
xc,yc,c,x,y,i:integer;
begin
hidecursor;
repeat
clrscr;
writeln('Выберите фигуру');
writeln('1-треугольник');
writeln('2-квадрат');
writeln('3-круг');
writeln('4-ромб');
writeln('5-эллипс');
writeln('другое - выход');
read(w);
xc:=windowwidth div 2;
yc:=windowheight div 2;
setpencolor(clRed);
case w of
'1':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
moveto(xc+round(150*cos(pi/2)),yc-round(150*sin(pi/2)));
for i:=1 to 4 do
begin
x:=xc+round(150*cos((i-1)*(2*pi/3)+pi/2));
y:=yc-round(150*sin((i-1)*(2*pi/3)+pi/2));
lineto(x,y);
end;
readln
end;
'2':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
rectangle(xc-150,yc-150,xc+150,yc+150);
readln
end;
'3':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
circle(xc,yc,150);
readln
end;
'4':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
moveto(xc-100,yc);
lineto(xc,yc-150);
lineto(xc+100,yc);
lineto(xc,yc+150);
lineto(xc-100,yc);
readln
end;
'5':begin
clrscr;
textout(xc-50,10,'Нажмите Enter');
ellipse(xc-150,yc-100,xc+150,yc+100);
readln
end;
end;
until not(w in ['1'..'5'])
end.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение:
Как именно напиши корректно свой вопрос