Program MAX;
var
a:integer;{само проверяемое число}
m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln('Введите ваше число:', '(Если захотите выйти, напишите ноль)':3);
readln(a);
while (a <> 0) then begin
If (a > m) then begin
m:= a; end;
readln(a); end;
writeln('Максимально число:', m:3);
End.
Точно не знаю но
Если 1 яч. 10 значит 8 яч. 80кб.
Если 3 занято то от 80- 30 = 50кб.
Значит если в 1 кб. = 1024 байта то 50 кб = 51200байта оставшийся памяти
2.На флэшке мы сможем , на микросхеме нет на жестком диске на разбирать одним словом сложно и на диске тоже можно но сложно .Так что флэшка самый быстрый и удобный вариант
Если нужна программа только под д),то вот:
Program n6;
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
<span>end.</span>
Суть заключается в том, что мы изменяем внешний вид числа, не меняя самого значения
Program Primer;
var F:array [1..16] of integer; d, kch: integer;
begin
for d:=1 to 16 do read(F[d]);
kch:=0;
for d:=1 to 16 do
if (F[d] mod 2 = 0) then kch:=kch+1;
writeln(kch);
end.