Var i: char;
n: integer;
a: array [0..21] of char;
begin
readln(n);
for i := 'a' to 'z' do if (ord(i) <= n + 97) then write(i);
<span>end.</span>
1 вапрос атвет 1 2 вапрос 3 атвет 3 вапрос 1 атвет 4 атвет 1 атвет
Var a: Real;
begin
writeln('Введите сторону a: ');
readln(a);
writeln('S=',a*a);
writeln('P=',4*a);
end.
Вот полный список примитивов: circle, ellipse, line, polygon, polyline, rect. Соответственно, нужно выбрать так:
- arc
- ✓ circle
- helix
- ✓ polyline
- ✓ ellipse
- ✓ rect
- hyperbola