ПАСКАЛЬ!!! Задачи базового уровня Б1. Дано число. Вывести ** экран его последнюю цифру....

Question

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

Answer 1

Var num: integer;
begin
read(num);
write(num mod 10);
end.


var sum, num: integer;
begin
sum := 0;
read(num);
sum := num mod 10;
num := num div 10;
sum += num mod 10;
num := num div 10;
sum += num;
if sum mod 5 = 0 then write('yes') else write('no');
end.


var num, n: integer;
is_od: boolean;
begin
is_od := true;
read(num);
n := num;
read(num);
if num <> n then is_od := false;
read(num);
if num <> n then is_od := false;
if is_od = true then write('yes') else write('no');
end.