var sum,x:integer;
begin
x:=1;
while x<>0 do begin readln(x); sum:=sum+x; end;
writeln(sum);
end.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Var
i:integer; s,a:real;
Begin
Write('Вводите числа через Enter ');
for i:= 1 to 5 do
Begin
Read(a);
s:=s+a;
End;
Writeln;
write('Среднее арифметическое этих чисел ');
if s/5>6 then write('больше 6 и равняется ',s/5,', поэтому увеличиваю на 3 - ',s/5+3) else write('не больше 6, поэтому оставляю как есть ',s/5);
End.
var S, p, a, b: real;
begin
writeln('Введите периметр прямоугольника');
readln(p);
writeln('Введите одну из сторон прямоугольника');
readln(a);
b:=(p-2*a)/2;
s:=a*b;
writeln('Площадь прямоугольника равна ', s);
end.
Тут же просто, переводим мегабайты в биты:
32 Мбайт = 256 мбит = 262144 кбит = 268435456 бит
Соотношение принимает вид
16х бит = 268435456 бит
Отсюда получаем x = 16777216