625 Кбайт = 625 * 1000 * 8
ответ : (625 * 1000 * 8) / 128000
Var
a: array[1..10] of integer;
i, count: integer;
begin
for i:=1 to 10 do
readln(a[i]);
count:=0;
for i:=1 to 10 do
if a[i] < 70 then
inc(count);
writeln(count);
end.
Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
Backspace - Удаление последней цифры отображаемого числа; CE - Удаление отображаемого числа; C - Очистка калькулятора для новых вычислений; MC - Очистка памяти; MR - Замена отображаемого числа числом, хранящимся в памяти. Содержимое памяти не меняется; MS - Занесение отображаемого числа в память; M+ - Прибавление отображаемого числа к числу, хранящемуся в памяти. Сумма этих чисел не отображается; M - <span>Индикатор использования памяти буквой "M"</span>