Вопрос по информатике:
Помогите решить задачи в PASCAL !!!
1)Дано предложение. Напечатать все его буквы «и».
2)Дано предложение. Вывести столбиком его третий, шестой и т. д. символы.
- 09.12.2017 00:02
- Информатика
- remove_red_eye 3150
- thumb_up 17
Ответы и объяснения 2
1)
program a;
var s:string;
i:integer;
begin
readln(s);
for i:=0 to length(s) do
if(s[i]='и') then write('и');
end.
2)
program a;
var s:string;
i:integer;
begin
readln(s);
for i:=1 to round(length(s)/3) do
writeln(s[i*3]);
end.
- 01.01.1970 00:00
- thumb_up 35
1)
var
text:string;
i:integer;
begin
readln(text);
for i:=1 to Length(text) do
if text[i]='и' then
write('и ');
end.
2)
var
text:string;
i:integer;
begin
readln(text);
for i:=1 to (Length(text) div 3) do
begin
writeln(text[i*3]);
end;
end.
- 01.01.1970 00:00
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.