1. Пусть объём жёсткого диска компьютера, к которому вы имеете доступ равен 500 Мбайт. Сколько страниц текста можно было бы разместить в памяти этого компьютера ( на странице размещается 40 строк по 60 символов в каждой строке )? Какой была бы высота такой стопки страниц, если высота из 100 страниц 1 см? 2. Фотоальбом полностью занимает DVD объемом 4,7 Гбайт. Сколько времени уйдет на просмотр всех фотографий, если на просмотр одной фотографии уходит 5 секунд и каждая фотография занимает 500 Кбайт?
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.
ВСЕ ЗАДАЧИ В ОДНОЙ
var enter,numberDgigits,i,j,cod,k:integer;
number:string;
ch:char;
begin
writeln('введите целое число');
readln(number);
for i:=1 to length(number)-1 do
if number[i]=number[i+1] then
k:=k+1;
if k<>0 then begin
writeln('в записи числа есть две одинаковые цифры стоящие рядом');
end
else
writeln('в записи числа нету двух одинаковых цифр стоящих рядом');
k:=0;
for i:=1 to length(number)-1 do begin
ch:=number[i];
for j:=1+i to length(number) do
if ch=number[j] then
k:=k+1;
end;
if k<>0 then begin
writeln('в записи числа есть одинаковые цифры');
end
else
writeln('в записи числа нету одинаковых цифр');
val(number,enter,cod);
if (enter>99) and (enter<1000) then begin
writeln('число трехзначное')
end
else
writeln('число не трехзначное');
numberDgigits := 0;
while enter > 0 do begin
numberDgigits := numberDgigits + enter mod 10;
enter := enter div 10;
end;
writeln('сумма цифр = ',numberDgigits);
readln;
end.