1. a:=10; b:=20; c:=30; 2. При write(a) - выведется на экран просто значение а; При write('a') - выведется просто буква "а"; При write('a=', a) - выведется на экран, например: a=10 3. Чтобы вывести на экран число с фиксированной запятой нужно написать write(a:0:3). a - должна быть вещественного типа. 3 - означает три знака после запятой, поэтому если у вас число 1.2758234, то будет выведено на экран 1.275
4. a = 1; b = 11;
5.
program pl; var a, b : integer; s, p : real; begin writeln("Введите первую сторону прямоугольника:"); readln(a); writeln("Введите вторую сторону прямоугольника:"); readln(b); p = 2*(a+b); s = a*b; writeln("Площадь прямоугольника равна:", s); writeln("Периметр прямоугольника равен:", p); end.
Var s,sr:string; i,j,n:integer; pr:array of char=('.',',',';',':','!','?'); begin readln(s); s:=s.Trim; var ars:=s.ToWords(); s:=''; for i:=0 to ars.Length-1 do s+=ars[i]+' '; s:=s.Trim; i:=0; while i<>s.Length do begin inc(i); if (s[i] in pr) and (s[i-1]=' ') then delete(s,i-1,1); end; i:=0; while i<>s.Length-1 do begin inc(i); if (s[i] in pr) and (s[i+1]<>' ') then insert(' ',s,i+1); end; s:=s.Trim; writeln(s); end.
Пример ввода: Очень, очень ,очень , очень ,очень,очень много слов. Пример вывода: Очень, очень, очень, очень, очень, очень много слов.
