OC Windows намного лучше ,у большинства людей он стоит ,на него выходит больше программ и игр ,а Linux какашка)
Program u4i_div_and_mod;
var a,b,c,z,x,v:integer;
begin
readln(a,b,c);
if((a + b)> c) and ((a + c )> b) and ((c + b )> a) then
begin
writeln('Yes');
if(a = b ) and( b = c ) then writeln('Ravnostor');
if(a = b) and (b <> c) then writeln('Ravnobedr');
if(a <> b ) and ( a <> c ) and (b <> c) then writeln('Raznost');
end
else writeln('NO');
readln;
<span>end.
cорри за ин-яз просто кодировки разные,исправь где нужно)</span>
Var i,sum,n,count: Integer;
begin
writeln('Введите максимальное число диапазона');
readln(n);
for i:=1 to n do
begin
Inc(sum,i);
Inc(count);
end;
writeln('Кол-во чисел: ',count);
writeln('Сумма чисел равна: ',sum);
end.
Var i:integer; n,k:real;
begin
n:=10;k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.
Полностью не уверена, но, скорее всего, только одна программа. Т.к. при приобразовании числа 35 в 37 мы имеет право использовать только первую команду (использовав вторую полнучиться слишком большле число, которое мы уже не сможем уменьшить другой командой).