СРОЧНООО! ПОМОГИТЕ ПО ИНФЕ!Написать программу через PascalABC :з Задача 2. Составить

СРОЧНООО! ПОМОГИТЕ ПО ИНФЕ!
Написать программку через PascalABC :з
Задачка 2. Составить программку, решающую последующую задачку: Дано трехзначное число. Вывести число, приобретенное при перестановке крайних цифр начального числа.

Задачка 3. Составить программку, решающую последующую задачку: Вы торговец, и у Вас имеются гири весом 1, 2, 5 кг. Наберите малое количество гирь для взвешивания N кг.

Задать свой вопрос
1 ответ
2.
var a,b:integer;
begin
write('a = ');
readln(a);
b:=(a mod 10)*100 + (a div 10 mod 10)*10 + a div 100;
writeln('b = ',b);
end.

Пример:
a = 194
b = 491

3.
var n,k5,k2,k1:integer;
begin
write('n = ');
readln(n);
k5:=n div 5;
k2:=(n-k5*5) div 2;
k1:=n-k5*5-k2*2;
writeln('5 кг - ',k5,', 2 кг - ',k2,', 1 кг - ',k1);
end.

Пример:
n = 18
5 кг - 3, 2 кг - 1, 1 кг - 1
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт