Ребята помогите, прошу!!!!!! Вообще не втупляю....... 1. Даны два числа. Вывести **...

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.

Comments

Yes

---

Вроде отметила)

---

<3

---

ОКи)

---

я прочитала что нужно Через несколько дней зайти сюда уже появится Корона и нажать на лучший ответ.. подождём?