ПАСКАЛЬ!!!
Задачи базового уровня
Б1. Дано число. Вывести на экран его последнюю цифру.
Б2. Для заданного двузначного числа определить чего в нем больше единиц или десятков?
Б3. Для заданного трехзначного числа определить кратна ли сумма его цифр 5?
Б4. Известен рост трех человек. Определить, одинаков ли их рост.

Предыдущий
вопрос Следующий
вопрос

Решение задач:

Б1. Для вывода на экран последней цифры числа можно воспользоваться операцией взятия остатка от деления на 10. Пример кода на Pascal:

var
num, lastDigit: integer;
begin
num := 12345;
lastDigit := num mod 10;
writeln('Последняя цифра числа: ', lastDigit);
end.

Б2. Для определения чего в двузначном числе больше - единиц или десятков, можно разделить число на 10 и найти остаток от деления. Пример:

var
num, units, tens: integer;
begin
num := 57;
units := num mod 10;
tens := num div 10;
if units > tens then
writeln('В числе больше единиц')
else if units < tens then
writeln('В числе больше десятков')
else
writeln('В числе равное количество единиц и десятков');
end.

Б3. Для определения кратности суммы цифр трехзначного числа 5, можно просуммировать цифры числа и проверить на кратность 5. Пример:

var
num, digit1, digit2, digit3, sum: integer;
begin
num := 345;
digit1 := num div 100;
digit2 := (num div 10) mod 10;
digit3 := num mod 10;
sum := digit1 + digit2 + digit3;
if sum mod 5 = 0 then
writeln('Сумма цифр числа кратна 5')
else
writeln('Сумма цифр числа не кратна 5');
end.

Б4. Для определения одинаков ли рост трех человек, можно сравнить их значения. Пример:

var
height1, height2, height3: integer;
begin
height1 := 170;
height2 := 175;
height3 := 170;
if (height1 = height2) and (height2 = height3) then
writeln('Рост трех человек одинаков')
else
writeln('Рост трех человек различается');
end.