Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>
Var sum,p,x,z:integer;
<span>begin </span>
<span>writeln('Введите трёхзначное число'); </span>
<span>read(x); </span>
<span>sum:=x mod 10 + x div 100 + x div 10 mod 10; </span>
<span>p:=(x mod 10) * (x div 100) * (x div 10 mod 10); </span>
<span>z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); </span>
<span>writeln('Сумма цифр =',sum); </span>
<span>writeln('Среднее арифметическое цифр =',sum/3); </span>
<span>writeln('Произведение цифр =',p); </span>
<span>writeln('После перестановки 1 и 3 цифр =',z); </span>
<span>end.</span>
350 килобайт - 0,35 Мегабайт
1,44Мб+0,35Мб=1,475Мб
Program n1;
type z = array of integer;
var a: z;
i,n,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
setlength(a,n);
read(f,a[n-1]);
end;
close(f);
max:=a[0];
for i:= 1 to n-1 do
if (a[i]>max) and(a[i] mod 2<>0) then max:=a[i];
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.
<u>Задание</u><u> </u><u>1</u>
1). 320-200 = 120
2). 120+50 = 170
Ответ: <em>170</em>
<u>Задание</u><u> </u><u>2</u>
1). 427-222 = 205
2). 405+50 = 255
Ответ: <em>2</em><em>55</em>
<u>Задание</u><u> </u><u>3</u>
1). 245+235 = 440
2). 440-120 = 360
Ответ: <em>360</em>