Даны два трехзначных числа. поменять вторые цифры этих чисел(pascal)
Даны два трехзначных числа. поменять вторые цифры этих чисел(pascal)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы