Начало
Сними трубку
набери номер
дождись гудка
гудки длинные?
передай сообщение
дождись ответа
положи трубку
конец
в ромбе всегда стоит вопрос.
Абсолютная адресация указывается знаками доллара и перед номером строки, и перед номером столбца.
Следовательно, $C$7.
Var
s,ss:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
begin ss:=s[i]+s[i]; Insert(ss,s,i) end;
Writeln('Результат: ',s)
end.
Пример решения
Введите строку: Я умею писать программы!
Результат: ЯЯЯ ууумммеееююю пппииисссааатттььь пппрррооогггррраааммммммыыы!!!
var
s:string;
i:integer;
begin
Write('Введите слово: '); Readln(s);
for i:=Length(s) downto 1 do Insert(' ',s,i);
Writeln('Результат: ',s)
end.
Пример решения
Введите слово: Паскаль
Результат: П а с к а л ь
var
s1,s2,s3:string;
i:integer;
begin
Write('Введите первое слово: '); Readln(s1);
Write('Введите второе слово той же длины: '); Readln(s2);
s3:='';
for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];
Writeln('Результат: ',s3)
end.
Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа
Только что созданный текстовый файл получил расширение txt
Немного непонятно, как 8 может указывать на то, что дальше будет 6 чисел.
python 3:
with open("input.txt") as f:
numbers = list(map(int, f.read().split()))[1:]
print(sum(numbers)/len(numbers))
PascalABC.NET 3.2:
begin
var f := openread('input.txt');
var n := readinteger(f);
var sum := 0;
for var i := 1 to n do
sum += readinteger(f);
write(sum / n);
end.
