Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
Var s:string;
i,ser,p2,c:integer;
begin
readln(s);
i:=length(s);
ser:= round(i/2);
p2:=ser+1;
for c:=p2 to i do
write (s[c]);
for c:=1 to ser do
write (s[c])
end.
Разделение на группы по определенным критериям и особенностям
<span>var {секция описания переменных}
Number,Num1,Num2,Sum: integer;
begin{начало программы}
write('Введите двухзначное число: ');//Вывод строки на экран
read(Number); //переменная Number получает значение с клавиатуры
Num1 := Number div 10; //В Num1 целая часть от деления Number на 10
Num2 := Number mod 10; </span>//В Num2 остаток от деления Number на 10<span>
Sum := Num1 + Num2; //находим сумму Num1 и Num2
write('Сумма двух чисел — ',Sum);//вывод результата на экран
end. {конец программы}</span>
ДРУГ | длина = 4 | четная
ДРУГЯ --> ДСУДЯ | Длина = 5 | нечет.
АДРУГЯ --> АЕРФГА
Ответ: АЕРФГА