Var a,b:string;
i:integer;
begin
readln(a);
readln(b);
for i:=1 to length(a) do
if a[i]=b then continue
else write(a[i]);
<span>end.</span>
Пишите нормальные значения не мб, а мегабайты.
Для начала перевидем I обьем(Дискета и CD диска) из мегабайт в байты.
Iд=1,44мбайт=1474.56кбайт=11'796.48байты
ICD=700мбайт=716'800кбайт=5'734'400байты
После этого делим Iд и ICD на Iобьем 1 страницы
Iд=11'794.48÷3000=3,93 округляем, получаем 3 страницы.
Хотя здесь вы бы сказали "Почему 3,а не 4"А вот почему, если вы бы округлили до 4 и умножили на 3000 для проверки, получилось бы 12000 байт, а это не верно потому что у Iд макс. 11'794.48.Поэтому у дискета уместится 3 страницы.
ICD=5'734'400÷3000=1911.46 округляем, получаем 1911 страниц.Поэтому у CD уместится 1911 страниц.
Ответ:3 <span>страницы текста уместится на дискету и 1911 страниц уместится на компакт-CD диск.
</span>P.S: Знак (') я писал, чтобы легче было распознать число.
Мы судьи с "ЕртисДарына" Ваша школа будет дисквалефецирована!
Мы нашли вас по вашему 'Ip' коду
Ответ:
var X, Y: Real;
begin
WriteLn("Введите значение аргумента: ");
ReadLn(X);
// так как деление на ноль вызовет ошибку, исключаем это
if (X <> 0) then
begin
Y:=1/X*X+4*X+5;
WriteLn("Y= ", Y);
end;
else
WriteLn("Введен недопустимый аргумент");
end.