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

Question

Информатика

Дионисий

3 мая, 09:04

Даны два трехзначных числа. поменять вторые цифры этих чисел (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.