Var b: integer;
a: boolean;
begin
a:=true;
if a then b:=4
else b:=-4;
writeln(b)
end.
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>
A=4
D=C=3
C=B=9
B=A=4
Ответ: 4 4 9 3
2 - ctrl, 3 шт. или тг.,4- А . В 5 - 6,04;27,04;17,04,6 - Правило Больше 3, 7 С8, 8- 1
1 - название таблицы, 2 - легенда,3 - рабочая область, 4 - таблица осей
Vara:array[1..10]of integer;i,b,c:integer;BeginRandomize;for i:=1 to 10 do begina[i]:=random(31)-10;if a[i]>0 then b:=b+1;if a[i]<0 then c:=c+1;end;writeln('кол-во положительных чисел = ',b,'; кол-во отрицательных чисел = ',c);end.