Регистрация
23200611
06.07.2020 11:31
Информатика
Есть ответ 👍

Введите строку с клавиатуры. замените в ней все о на о​

286
434
Посмотреть ответы 2

Ответы на вопрос:

Artyr2017
Artyr2017
4,5(68 оценок)

ответ:

1.

var s,s1: string;

i: integer;

begin

readln(s);

s1: =s;

for i: =1 to length(s1) do begin

if s1[i]='а' then s1[i]: ='о' else

  if s1[i]='а' then s1[i]: ='о' else

  if s1[i]='б' then s1[i]: ='о' else

  if s1[i]='б' then s1[i]: ='о';

end;

writeln(s1); end.

объяснение:

Xaby
Xaby
4,6(34 оценок)
Program zadacha1; var x,y,b,a: integer; begin write('x='); readln(x); write('a='); readln(a); b: =sqr(a); y: =1-sqr(b); writeln('y=',5: 2); readln; end.

Популярно: Информатика