// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99);
a.Println.Sorted.Println;
Writeln('Количество разных чисел ',a.Distinct.Count)
end.
<u><em>Тестовое решение:</em></u>
n= 20
60 33 12 47 79 81 33 26 73 98 82 81 71 70 96 48 13 66 29 85
12 13 26 29 33 33 47 48 60 66 70 71 73 79 81 81 82 85 96 98
Количество разных чисел 18
Program gt;
var a:array[1..1000]of integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
if(a[i]=i+10)then write(a[i],' ');
end;
end.
В параллелограмме указан ввод числа в переменную А, т.е. А будет равно 25;
Далее присваиваем значение переменным Х=1 и S=0;
Проверяем/сравниваем (обычно это условный оператор if).
У нас действительно S меньше или равно А, т.к. 0<25;
Выполняем блок действий Х=Х*4 (т.е. Х=4); S=S+X (т.е. S=4);
Опять проверяем/сравниваем 4<25, опять выполняем блок действий.
X=4*4=16 (т.к. старое значение уже было 4 и оно хранится в памяти)
S=4+16=20 (тоже что и с иксом);
Опять проверяем 20<25. Опять выполняем блок действий:
X=16*4=64
S=20+64=84
Проверяем :-) (надоело уже) 84<20????? Нет больше. Идем по ветке нет, т.е. выводим S.
На экране отобразиться число 84.
1) 250 * 55 * 40 = 550000 всего символов в книге
2) В стандартной кодировке 1 символ кодируется 1 байтом, значит
550000 * 1 = 550000 байт = 537,1 Кб объем информации в книге
3) 2ГБ = 2048 МБ = 2097152 КБ
4) 2097152 / 537,1 = 3904 книги поместится на флешке
