Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.
ввел: asdfsss
результат: asdfs
либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.
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.
в ms excel по умолчанию числа выравниваются по правому краю, текст по левому
но при ручном форматировании можно выравнивать как угодно
картинка должна быть в папке с программой и быть в формате bmp
usesgraphabc;
varn: string; b: picture; s: integer;
beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.
Популярные вопросы