• Помогите решить задачи в PASCAL !!!
    1)Дано предложение. Напечатать все его буквы «и».
    2)Дано предложение. Вывести столбиком его третий, шестой и т. д. символы.

Ответы 2

  • 1)program a;var s:string;i:integer;beginreadln(s);for i:=0 to length(s) doif(s[i]='и') then write('и');end.2)program a;var s:string;i:integer;beginreadln(s);for i:=1 to round(length(s)/3) dowriteln(s[i*3]);end.
  • 1)vartext:string;i:integer;beginreadln(text);for i:=1 to Length(text) doif text[i]='и' thenwrite('и ');end.2)vartext:string;i:integer;beginreadln(text);for i:=1 to (Length(text)  div 3) dobeginwriteln(text[i*3]);end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years