var s,p: string;
i: integer;
begin
write('Введите текст: ');
readln(s);
p:=s;
for i:=1 to length(s) do
if (s[i]='.') or (s[i]='!') or (s[i]='?') or (s[i]=',')
then delete(p,pos(s[i],p),1);
write('результат: ',p);
end.
1. Свернуть в окно - оконный режим
2. навести курсор мыши на нижнюю границу окна так , чтобы курсор мыши принял вид стрелки в два направления
3 нажать левую кнопку мыши, и не отпуская, переместить вверх или вниз,
отпустить ЛКМ
B, d. У b еще надо объявить тип функции(после скобок дописать integer, real и т.п), у d должно быть имя процедуры (его надо писать перед скобками). Имя-любой набор букв, понятный пользователю, имя не может начинаться с цифры и содержать знаки препинания.
Ряд 2,4,6,8... является арифметической прогрессией с разностью d=2, и первым членом a1=2
формула суммы первых n членов:
в данной задаче:
поэтому при составлении программы можно обойтись без циклов
программа:
Program n1;
var n: integer;
begin
readln(n);
write(n*n+n);
end.
Нажать стрелочку закругленную