Держи)
program zad1;
var
i:integer;
a:real;
begin
a:=100000;
for i:=1 to 40 do
begin
if i<5 then
begin
a:=a*1.2;
a:=a*0.88;
writeln(i,' год ',a:0:0);
end
else
begin
a:=a*1.2;
a:=a*0.88;
a:=a-5000;
writeln(i,' год ',a:0:0);
end;
end;
<span>end.</span>
Program skynet;
var a,b,c,max:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if a>b then max:=a
else
if b>c then max:=b
else max:=c;
writeln('Наибольшее число = ',max);
end.
Если 1 символ равен 1 байту, то:
1) Информационный объем одной страницы: 30 * 60 = 1800 байт
2) (50 * 1024) / (30 * 60) = 28.4. Значит, понадобится 29 листов
Ответ:
1.
120 * 1024 = 122880 (Мб)
122880 / 512 = 240
2.
0.5*1024*8=4096 бит
500*8=4000 бит
4096-4000=96 бит
3. - Какую таблицу?
4.
8*1024 = 8192
8192 / 150 = 54.6
54 файла
5.
50 * 40 = 2000 символов на странице
2000 * 200 = 400000 символов в книге
1,44 / ((400000 / 1024) / 1024) = 3,78
800 / ((400000 / 1024) / 1024) = 2099.7375
На дискете поместится 3 книги, на диске 2099 книг.
Объяснение:
1. Переводим в мб, потом делим и узнаем во сколько раз больше.
2. Перевели в биты и вычли.
3. Не до конца дано условие
4. Перевели в мб, разделили. Целая часть - сколько целых файлов.
5. Нашли символы, символы во всей книге, перевели 400000 байт в мегабайты и нашли сколько книг поместится.
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (N, M, C) := ReadInteger3;
var cc := C.ToString;
Range(N, M).Where(n -> n.ToString.Contains(cc)).Count.Println
end.
