Информатика, опубликовано 2018-08-22 18:24:42 by Гость
Помогите решить задачи в PASCAL !!! 1)Дано предложение. Напечатать все его буквы «и». 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.