Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1)
var
s: string;
begin
s: ='пробел';
writeln(s);
delete(s,4,1);
insert('д',s,4);
end.
2)
i: integer;
a,b: string;
readln(a);
b: ='';
for i: =1 to length(a) do
b: =b+a[i]+' ';
writeln(b);
3)
a: string;
if a[2]=a[4] then writeln('равны')
else writeln('не равны');
n: integer;
readln(n);
if (n mod 10)=(n div 100) then
writeln('палиндром')
else
writeln('не палиндром');
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);
1.что можно делать в школе?
бегать, ходить,играть,учить,узнавать. и тд.
2. в школе есть:
книга, библиотека , стены,кабинеты, и тд.
Популярные вопросы