1. Запустите текстовый процессор, установленный на вашем компьютере. 2. Введите текст: При вводе текста соседние слова отделяются одним пробелом. Знаки препинания (запятая, двоеточие, точка, восклицательный и во знаки) пишутся слитно с предшествующим словом и отделяются пробелом от следующего слова. Кавычки и скобки пишутся слитно с соответствующими словами. Тире выделяется пробелами с двух сторон. Дефис пишется слитно с соединяемыми им словами. 3. Введите текст, обращая внимание на соблюдение соответствующих правил: Тема «Правила ввода текста», гостиница «Малахит», шоколад «Алёнка», роман «Война и мир». Этапы создания текстового документа: ввод, редактирование, форматирование. Информация во Всемирной паутине организована в виде страниц (Web-стран1. Запустите текстовый процессор, установленный на вашем компьютере. 2. Введите текст: При вводе текста соседние слова отделяются одним пробелом. Знаки препинания (запятая, двоеточие, точка, восклицательный и во знаки) пишутся слитно с предшествующим словом и отделяются пробелом от следующего слова. Кавычки и скобки пишутся слитно с соответствующими словами. Тире выделяется пробелами с двух сторон. Дефис пишется слитно с соединяемыми им словами. 3. Введите текст, обращая внимание на соблюдение соответствующих правил: Тема «Правила ввода текста», гостиница «Малахит», шоколад «Алёнка», роман «Война и мир». Этапы создания текстового документа: ввод, редактирование, форматирование. Информация во Всемирной паутине организована в виде страниц (Web-страниц Всё-таки, Мамин-Сибиряк, жар-птица, северо-восток, Ростов-на-Дону, Нью-Йорк. Пришлось волей-неволей остаться здесь на ночь. Горя бояться — счастья не видать. Москва — огромный город, город-страна. Конец XVII века — первая половина XIX века.иц). Всё-таки, Мамин-Сибиряк, жар-птица, северо-восток, Ростов-на-Дону, Нью-Йорк. Пришлось волей-неволей остаться здесь на ночь. Горя бояться — счастья не видать. Москва — огромный город, город-страна. Конец XVII века — первая половина XIX века.
Ответы
{на free работает!}
var
sur, sur1: string;
i, count, pz: byte;
begin
write ('Введите строку: ');
readln (sur);
for i:=1 to length (sur) do
if sur[i] = 'a' then inc (count);
writeln ('Длина строки : ', length(sur), ' символов; кол-во "а": ', count);
sur1:=sur;
for i:=2 to length (sur) do
if (sur[i] = 'b') and (sur[i-1] = 'o') then
begin;
delete (sur1, i-pz, 1);
inc (pz);
end;
write ('Удалено ', pz, ' "b"; Новая строка: ', sur1);
end.
var
sur, sur1: string;
i, count, pz: byte;
begin
write ('Введите строку: ');
readln (sur);
for i:=1 to length (sur) do
if sur[i] = 'a' then inc (count);
writeln ('Длина строки : ', length(sur), ' символов; кол-во "а": ', count);
sur1:=sur;
for i:=2 to length (sur) do
if (sur[i] = 'b') and (sur[i-1] = 'o') then
begin;
delete (sur1, i-pz, 1);
inc (pz);
end;
write ('Удалено ', pz, ' "b"; Новая строка: ', sur1);
end.
//PascalABC.NET 3.2 сборка 1318
//Вариант по формуле Бине
Var
n,fibn:real;
i:integer;
begin
readln(n);
if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
i:=0;
while fibn<n do
begin
fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);
inc(i);
end;
writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);
end;
end.
//В лоб
Var
sum,n,buf,fib0,fib1:integer;
function fibb(fib0,fib1:integer):integer;
begin
result:=fib0+fib1;
end;
begin
fib0:=0;
fib1:=1;
readln(n);
if n<=0 then
writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
if fibb(fib0,fib1)>=n then sum:=0 else
begin
while fibb(fib0,fib1)<n do
begin
buf:=fib1;
fib1:=fibb(fib0,fib1);
fib0:=buf;
end;
sum:=fibb(fib1,fibb(fib0,fib1))-1;
end;
writeln(sum);
end;
end.
Пример ввода:
12
Пример вывода:
20
//Вариант по формуле Бине
Var
n,fibn:real;
i:integer;
begin
readln(n);
if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
i:=0;
while fibn<n do
begin
fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);
inc(i);
end;
writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);
end;
end.
//В лоб
Var
sum,n,buf,fib0,fib1:integer;
function fibb(fib0,fib1:integer):integer;
begin
result:=fib0+fib1;
end;
begin
fib0:=0;
fib1:=1;
readln(n);
if n<=0 then
writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
if fibb(fib0,fib1)>=n then sum:=0 else
begin
while fibb(fib0,fib1)<n do
begin
buf:=fib1;
fib1:=fibb(fib0,fib1);
fib0:=buf;
end;
sum:=fibb(fib1,fibb(fib0,fib1))-1;
end;
writeln(sum);
end;
end.
Пример ввода:
12
Пример вывода:
20
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
В чем причина изменения свойств информации?
Автор: Emasterova77
Пункт «Программы» содержит: a. Диски b. Файлы c. Папки d. Ярлык
Автор: Vello Olga
X**x деген қандай формула
Автор: Kateshaeva
ответ: Тема «Правила ввода текста», гостиница «Малахит», шоколад «Алёнка», роман «Война и мир».
Этапы создания текстового документа: ввод, редактирование, форматирование.
Информация во Всемирной паутине организована в виде страниц (Web-стран).
Объяснение: Тема «Правила ввода текста», гостиница «Малахит», шоколад «Алёнка», роман «Война и мир».
Этапы создания текстового документа: ввод, редактирование, форматирование.
Информация во Всемирной паутине организована в виде страниц (Web-страниц).
Всё-таки, Мамин-Сибиряк, жар-птица, северо-восток, Ростов-на-Дону, Нью-Йорк. Пришлось волей-неволей остаться здесь на ночь. Горя бояться — счастья не видать. Москва — огромный город, город-страна. Конец XVII века — первая половина XIX века.иц).
Всё-таки, Мамин-Сибиряк, жар-птица, северо-восток, Ростов-на-Дону, Нью-Йорк. Пришлось волей-неволей остаться здесь на ночь. Горя бояться — счастья не видать. Москва — огромный город, город-страна. Конец XVII века — первая половина XIX века.