Даны два трехзначных числа. поменять вторые цифры этих чисел (pascal)

Question

Информатика

Купава

9 октября, 12:00

Даны два трехзначных числа. поменять вторые цифры этих чисел (pascal)

+2

Ответы (1)

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

Евномия · Answer 1

var

a, b, c: string;

begin

randomize;

writeln ('Введите два трёхзначных числа:') ;

readln (a) ;

readln (b) ;

c:=a;

a[2]:=b[2];

b[2]:=c[2];

writeln ('Ответ: ', a,' ', b) ;

end.