Регистрация
maryana070803
25.07.2020 10:43
Информатика
Есть ответ 👍

Для данного натурального числа найдите число число, цифры которого записаны в обратном порядке. (vba)

161
453
Посмотреть ответы 2

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

pavellolpanov
pavellolpanov
4,5(75 оценок)
Sub aaa()       s = inputbox("исходное число")       k = len(s)       for i = 1 to k \ 2               t = mid(s, i, 1)               mid(s, i, 1) = mid(s, k - i + 1)               mid(s, k - i + 1, 1) = t       next       msgbox s end sub
H2Oя
H2Oя
4,5(25 оценок)

ответ:

summa1 - только для целых

summa2 - для любых

объяснение:

program summa1;

var

  x,y,s: integer;

begin

write ('введите х ');

readln(x);

write ('введите y ');

readln(y);

writeln ('вы ввели: x=',x,' ,y=',y);

  s: =x+y;

  write ('x+y=',s);

  readln;

end.

-------------------------------------------------------

program summa2;

var

  x,y,s: real;

begin

write ('введите х ');

readln(x);

write ('введите y ');

readln(y);

writeln ('вы ввели: x=',x: 5: 2,' ,y=',y: 5: 2);

  s: =x+y;

  write ('x+y=',s: 10: 2);

  readln;

end.

           

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