Var rez, error, x: integer;
t, t2: string;
begin
write('Введите пятизначное число: ');
readln(t);
val(t, x, error);if ( x <= 9999 ) OR ( x >= 100000 ) then writeln('Число не пятизначное!')
else
begin
t2 := IntToStr(x);
t2 := t2[5] + t2[4] + t2[3] + t2[2] + t2[1];
val(t2,rez,error);
rez := x - rez;
writeln('Разность чисел ', t, ' и ', t2, ' = ', rez);
end;
<span>end.</span>

0 0

1 год назад

Транспортир нужен для...

Vorona123 [17]

Транспортир нужен для измерения углов.
Чаще на Алгебре и геометриии.

0 0

3 года назад

Прочитать ещё 2 ответа

1. В программе «:=» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, у

IV-igorek [3]

По-моему, тут все просто.
Подставляем в третьей строке значения а и b : 2*4+3*4 =20.
Дальше "а" принимает значение 20, потому что это алгоритм и число терят предыдущее значение (4).
Подставляем в 4 строку значение а и b: 20/2*4=40. Ответ: 40

0 0

3 года назад

Прочитать ещё 2 ответа