Все категории

4 года назад

Дано двузначное число. Получить число, образованное при перестановки цифр заданного числа

Знания

Информатика

1 ответ:

sasadadda4 года назад

0 0

Pascal

var
   a,b,c : integer;

begin
   readln (a);
   b := a div 10; // узнать первую цифру двухзначного числа
   c := a mod 10; // узнать последнюю цифру числа
   writeln (c,b);
end.

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

Помогите решить; 1)Сколько единиц в двоичной записи числа 205 10 2) Дано: а= 268 8, b= В5 16. Какое из чисел с, записанных в дво

Никита Творческий

1. 205＝128*1+64*1+8*1+4*1+1*1. 5единиц
2. Ошибка в условии. В восьмиричной системе счисления нет числа 8.

0 0

3 года назад

Составить программу вычисления функции scilab

viktor 72 [14]

Если я верно понял задание, то это так:

x = 15.1

z = 65.3

y = (x + 1) / 5 + (z + 1)^2

disp(y)

0 0

4 года назад

Даны 3 числа a, b, c. Если a<b<c, числа удвоить. Иначе найти их абсолютную величину.

Pro100badboy [28]

Program n1;
Uses CRT;
Const n=10;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b i c');
Readln(a,b,c);
If (a<b) and (b<c) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end
else
begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln;
Writeln(a,b,c);
readln
end.

0 0

3 года назад

Даны два числа а и b . Получить их сумму , разность и произведение . Написать программу так , чтобы результат выводился полным о

Алина ЕАС

1 PascalВыделить код

2uses crt;

3var a,b,x,y,z:integer;

4begin

5clrscr;

6writeln('Введите числа A,B');

7readln(a,b);

9x:=a+b;

10y:=a-b;

11z:=a*b;

12writeln(x);

13writeln(y);

14writeln(z);

15end.

0 0

4 года назад

Пользователь вводит целое положительное число. Вывести на экран символы "*" таким образом: в первой строке количество "*" равно

йцуккенг

Var a, i: integer;

begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>

0 0

3 года назад