Program lol;
var a:integer;
begin
for a:=100 downto 1 do
begin
if a mod 3 = 0 then
writeln(a);
end;
<span>end.
P.S.
в строке </span>for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает<span>
</span>
Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
begin
Read(a[i]);
if (a[i] mod 2 = 0) then cnt:= cnt+1;
end;
Writeln(cnt);
end.
var
summ, c:integer;
begin
write('Введите число '); readln(c);
summ := c mod 10 + (c div 10) mod 10 + c div 100;
writeln('Сумма цифр числа ', c , ' равна ', summ);
end.