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.