Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2)program nah;
var s: string;
begin
s: = 'рэки,горы и '; (присвоение значения)
writeln (s); (вывод)
delete (s, 5,6); (удаление из строки s начиная с 5-го символа 6) символа)
writeln(s); (вывод результата)
end.
решение будет выглядеть так
рэки, горы и
рэки и
прости что не решила
var
s,n,i: integer;
write('введите количество чисел');
readln(n);
s: =0;
for i: =1 to n do
s: =s+i*3;
writeln(s);
Популярные вопросы