Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
write(' skolko chisel budem vvodit ? '); readln(n);
write('chislo dlia poiska : '); read(k);
for i:=1 to n do
begin
readln(chislo);
if ((chislo mod 10 = k) or (chislo div 10 = k)) then
write('chislo ',chislo,' udov uslovie.. ')
else write('chislo ',chislo,' NE udov uslovie.. ');
writeln;
end;
readln;
End.
1 в
32 * 8 = 256 бит = 32 байта
2
25 * 80 * 8 = 16 000 бит = 2 000 байт <span>≈</span> 2 кило байта
Итак:
1 символ = 1 байт.
всего 400 страниц
На одной странице 50 строк по 40 символов, т.е. 50*40 = 2000 символов на одной странице
2000 * 400 (страниц) = 800000 символов в книге
Переводим 800000 символов = 800000 байт = 800 килобайт = 0,8 мбайт = 0,0008 гбайт
В одном гбайте - 1000000 кбайт
С.л. 1000000 * 4 = 4000000 кбайт
4000000 кбайт (размер диска) делим на 800 кбайт (размер одной книги)
= 5000 книг
//Pascal ABC.NET v3.1 сборка 1172
var
n, m: integer;
begin
read(n, m);
repeat
writeln('Текущее значение N:', n, ' ,до m:', m - n);
inc(n);
until n = m;
writeln('Завершено, n=m');
end.
Пример ввода:
12
20
Пример вывода:
Текущее значение N:12 ,до m:8
Текущее значение N:13 ,до m:7
Текущее значение N:14 ,до m:6
Текущее значение N:15 ,до m:5
Текущее значение N:16 ,до m:4
Текущее значение N:17 ,до m:3
Текущее значение N:18 ,до m:2
Текущее значение N:19 ,до m:1
Завершено, n=m