Question

Ребята помогите, прошу!!!!!! Вообще не втупляю.......
1. Даны два числа. Вывести на экран те из них, которые являются трёхзначными и целыми.
3.. Вычислить и вывести произведение квадратов чисел, кратных трём, натурального ряда от 1 до N.

Answer 1

Ответ:

1)

Program p1;

Var a,b,c,z: real;

Begin

Write('Введите 1 число ');

readln(a);

Write('Введите 2 число ');

readln(b);

z:=frac(a);

c:=frac(b);

if (a > 99) and (z = 0)  then Writeln(a);

if (b > 99) and (c = 0)  then Writeln(b);

End.

*функция frac() берет от вещественного числа дробную часть

2)

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=1;

For i:=1 to n do begin

readln (a);

if (a mod 3 =0) then k:=k*a*a;

end;

Writeln('Произведение квадратов чисел, кратных трём - ',k);

End.