1. Составьте программу, которая во введенном с клавиатуры слове заменит букву "А" на букву "И" и, наоборот, букву "И" на букву "А".

Question

Информатика

Степанида

28 ноября, 21:48

1. Составьте программу, которая во введенном с клавиатуры слове заменит букву "А" на букву "И" и, наоборот, букву "И" на букву "А".

+5

Ответы (1)

Знаете ответ на вопрос?

Парфентий · Answer 1

var

s:string;

i:integer;

begin

writeln ('Введи строку:') ;

readln (s) ;

for i:=1 to length (s) do

if (s[i]='А') then s[i]:='И' else

if (s[i]='а') then s[i]:='и' else

if (s[i]='И') then s[i]:='А' else

if (s[i]='и') then s[i]:='а';

writeln (s) ;

end.