ветвление

[Rfn.if]

9(г). Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия: среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
№4. Написать программу, позволяющую по последней цифре числа определить последнюю цифру квадрата и куба этого числа.
(Среда - Паскаль)

[Sparkman]

среда?

9(г)

- это класс, в котором вы учитесь?

[Rfn.if]

Сообщение от Sparkman

среда?
паскаль
- это класс, в котором вы учитесь?

...к сожалению нет

[BeJIuKuu_Hexo4yxa]

Сообщение от Rfn.if

№4. Написать программу, позволяющую по последней цифре числа определить последнюю цифру квадрата и куба этого числа.
(Среда - Паскаль)

a - исходное число
b - цифра квадрата
b := (sqr(a mod 10)) mod 10;
Соответственно для куба берешь не sqr, а третью степень.

[BeJIuKuu_Hexo4yxa]

Сообщение от Rfn.if

9(г). Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия: среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.

var
a: Double; // исходное число
b1, b2, b3, r: Integer;
res : string;
begin
b1 := (Trunc(a*1000)) mod 10; // 1 цифра
b2 := (Trunc(a*100)) mod 10; // 2 цифра
b3 := (Trunc(a*10)) mod 10; // 3 цифра
r := b1 * b2 * b3;
if r = 0 then
  res := 'True'
else
  res := 'False';

end;

А вообще, не принято возвращать текстовые True или False.