Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var s: string;
begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.
var sum,n,i: integer;
begin
readln(n);
sum: =0;
for i: =1 to n do
sum: =sum+i;
writeln(sum);
readln;
end.
Популярные вопросы