Получится слово вторник.
<span>insert - это вставка одной строки в другую начиная отсчёт с начала слова,мы вставили s1 в строку s в 4 по счёту место,получилось торникг,дальше мы строку s2 вставляем в строку s на 1 место по счёту и получаем слово вторникг,дальше мы операцией delete удаляем 8 по счёту букву то есть букву г,вот так вот получаем слово вторник.</span>
Var s1,s2,s3:string;
v1,v2,v3,r1,r2,r3:integer;
begin
write('1 имя : '); readln(s1);
write('вес и рост : '); readln(v1,r1);
write('2 имя : '); readln(s2);
write('вес и рост : '); readln(v2,r2);
write('3 имя : '); readln(s3);
write('вес и рост : '); readln(v3,r3);
writeln(s1,'+',s2,'+',s3,' = ',v1+v2+v3,' кг');
writeln(s1,'+',s2,'+',s3,' = ',r1+r2+r3,' см');end.
Пример:
1 имя : Петя
вес и рост : 55 160
2 имя : Вася
вес и рост : 40 150
3 имя : Коля
вес и рост : 48 155
Петя+Вася+Коля = 143 кг
Петя+Вася+Коля = 465 см
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
КНОПКА КОТОРАЯ ВКЛЮЧАЕТ РЕЖИМ ЗАГЛАВНЫХ БУКВ-CapsLock