1.23 МБ - 1047 ( Но это не точно)
2.4 - 2048 байт, 4096 бит.
1.9 - 1970176
Program project1;
uses
crt,math;
var s:real; i,j,f:real; a:integer;
begin
writeln('vvedite 1 chislo ');readln(i);
writeln('vvedite 2 chislo ');readln(j);
writeln('vvedite 3 chislo ');readln(f);
s:=i;
if j<s then s:=j;
if f<s then s:=f;
if s<0 then
begin
if i<0 then inc(a);
if j<0 then inc(a);
if f<0 then inc(a);
writeln('kolichestvo otricatelnix ',a:2);
end
else
begin
if i>0 then i:=i*-1;
if j>0 then j:=i*-1;
if f>0 then f:=i*-1;
end;
writeln('min chislo ',s:2:0);
readln;
end.
Могу ошибаиться с пониманием задачи, мой ответ: 78 или 12+11+10+9+8+7+6+5+4+3+2+1
а:=100; b:=30;
a:=a-b*3 - переменная а принимает значение 10.
If a>b then c:=a-d*3 - так как 10<30 программа дальше не будет работать.
Выведется сообщение переменной с присвоено значение, но оно нигде далее не используется.