Составить программу для pascalabc: статья, набранная на компьютере, содержит х страниц, на каждой странице y строк, в каждой строке z символов. определите информационный объём статьи в битах, байтах и килобайтах,если каждый символ кодируется 8 битами.
nn=100; { максимальное значение n }
var
i,n,k,s:integer;
a:array[1..nn] of integer;
begin
Write('Укажите натуральное число n: '); Read(n);
Randomize;
k:=0; s:=0;
Writeln('Сформированная последовательность');
for i:=1 to n do begin
a[i]:=Random(99)+1; { случайное число на интервале [1;99] }
Write(a[i]:3);
if (a[i] mod 5=0) and (a[i] mod 7 <>0) then
begin Inc(k); s:=s+a[i] end;
end;
Writeln;
Writeln('Количество чисел, кратных пяти: ',k);
Writeln('их сумма равна ',s)
end.
Тестовое решение:
Укажите натуральное число n: 39
Сформированная последовательность
15 83 69 64 56 50 13 70 55 40 22 82 45 67 31 36 16 52 67 44 63 23 52 62 89 33 40 32 17 14 98 15 5 58 46 68 57 72 90
Количество чисел, кратных пяти: 9
их сумма равна 355
Задача 2 если в классе 2 ученика, то после обмена будет 2 фотографии 2*(2-1)=2
если в классе 3 ученика, то всего будет 6 фотографий: 3*(3-1)=6
4 ученика 12 фотографий:4*(4-1)=12
х учеников по условию 600: х*(х-1)=600
откуда x^2-x-600=0 дискриминант 2401 х1=-24(не подходит)
х2=25 ответ 25
По задаче 3 нет данных