Программу ** pascal. Напишите условие выбора чисел больших 100 и кратных 3

Question

Программу на pascal.
Напишите условие выбора чисел больших 100 и кратных 3

Comments

Возьмем d за ваше число. Тогда if (s>100) and (s mod 3 = 0) then

---

s тоесть

---

так что-ли?

---

Условия неполны

---

к примеру

---

ну я же условие n>100 в writeln прописал но нечего не стоит добавить их в программу

---

Я про само задание

---

var a,n:integer;beginwriteln('введите число больше 100 до которого проверять');readln(n);for a:=n downto 100 do beginif (a mod 3 = 0) and (n>100)then writeln(a);else writeln('таки не кошерны ответ получается');end;end.

---

упс, там так должно быть

---

var a,n:integer;beginwriteln('введите число больше 100 до которого проверять');readln(n);if n<100 then writeln('таки не кошерный ответ получается');for a:=n downto 100 do beginif (a mod 3 = 0) and (n>100)then writeln(a)end;end.

Answer 1

Var a,n:integer;
beginwriteln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) then writeln(a);
end;
end.

Comments

var a,n:integer;
begin
writeln('введите число меньше 100 до которого проверять');
readln(n);
if (n<100) or (n=100) then writeln('таки не кошерный ответ получается');<br>for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a)
end;
end.