Ответ:

Объяснение:

Задание 9. Запишите программу, которая для произвольного натурального двузначного числа определяет:

а) сумму и произведение его цифр;

б) число, образованное перестановкой цифр исходного числа.

program z_9;

var a, b, c, sum, pr: integer;

BEGIN

writeln ('Введите двузначное натуральное число:');

readln (a);

b:= a div 10;

c:= a mod 10;

sum:= b+c;

pr:= b*c;

writeln ('а) Сумма: ', sum, '; Произведение: ', pr);

writeln ('б) ', c*10+b)

END.

Задание 10. Запишите программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим возможным количеством банкнот по 1000 (k1000), 500 (k500), 100 (k100), 50 (k50) рублей.

program z_10;

var s: integer;

BEGIN

writeln ('Введите сдачу:');

readln (s);

writeln ('Следует сдать:');

writeln ('банкнот по 1000 руб. - ', s div 1000, ' шт.');

s:= s mod 1000;

writeln ('банкнот по 500 руб. - ', s div 500, ' шт.');

s:= s mod 500;

writeln ('банкнот по 100 руб. - ', s div 100, ' шт.');

s:= s mod 100;

writeln ('банкнот по 50 руб. - ', s div 50, ' шт.');

s:= s mod 50;

END.

Задание 11. Идет k-я секунда суток. Разработайте программу, которая по введённой k-ой секунде суток определяет, сколько целых часов h и целых минут m прошло с начала суток.

program z_11;

var k: integer;

BEGIN

writeln ('Введите секунды суток:');

readln (k);

write ('Прошло ', k div 3600, ' часа(-ов) ');

k:= k mod 3600;

write (k div 60, ' минут');

END.