В целом 3 значном числе поменять местами 1 и последнюю цифру(паскаль)

Знания

Информатика

1 ответ:

Ренат0054 года назад

0 0

VAR N,a,b,c:INTEGER;
begin
Readln(n);
a:=(n mod 100)div 10;
b:=(n mod 100)mod 10;
c:=n div 100;
writeln(b,a,c);
end.

Читайте также

2. Переведите числа из двоичной системы счисления в десятичную: а) 10010(2 двоичная система)=х10(десятеричная) б) 100101(2 двоич

anna666

1) 100102 = 24*1 + 23*0 + 22*0 + 21*1 + 20*0 = 16 + 0 + 0 + 2 + 0 = 18
100102=18

2) 1001012 = 25*1 + 24*0 + 23*0 + 22*1 + 21*0 + 20*1 = 32 + 0 + 0 + 4 + 0 + 1 = 37
1001012=37

0 0

1 год назад

Чому буде дорівнювати значення змінної s? Var i, s: integer; begin s := 0; for i: = 1 to 4 do begin s := s +i; end; end;

denidze95 [4]

Всё, что вывела программа

0 0

4 года назад

Сколько целых положительных чисел удовлетворяют следующему условию (x≤2) ИЛИ ((x<9) И (x>6)?

Well77777

4 числа: 1,2,7,8
не читать после ответа, тут срач

0 0

4 года назад

Почему не работает калькулятор(ничего не работает кроме деления на 0)? Прошу помогите пажалуйста program calc; var operation: ch

ОльгаКныш [28]

Program calc;
var
operation:char;
s,a,b:real;
begin
writeln('Введите первое число'); readln(a);
writeln('выбирайте знак(+ - * /)'); readln(operation);
writeln('Введите второе число'); readln(b);
if (b=0) and (operation = '/') then begin
writeln ('ERROR');
exit
end;
case operation of
'+': s:=a+b;
'-': s:=a-b;
'*': s:=a*b;
'/': s:=a/b;
end;
Writeln('Результат: ',s)
end.

0 0

1 год назад

N=32 I=16 K=? Помогите пожалуйста

logo

К=8, потому, что каждое следующее число делится на 2.

0 0

4 года назад