Program name;
const n=5;
var i:integer;
begin
for i:=1 to n do
writeln('ваше имя');
<span>end.</span>
//Pascal ABC.NET 3.1 сборка 1219
uses
system;
Var
d1,d2:datetime;
a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.
Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366
Від програми в якому він створюється, редагується, зберігається.
1) 192 : 6 =32 (страниц с картинками)
2) 32 * 5 =160 (страниц с текстом)
3) 160 * 1024 *8 = 5*2^5 * 2^(10) *2^3 = 5*2^(18) бит= 2*2^5 Кбайт=
=160 Кбайт (текст)
4) 10400 Кбайт - 160 Кбайт =10240 Кбайт (картинки)
5) 10240 *2^(13) : (1280*512) бит = 5*2^(11)*2^(13) : (5*2^8 *2^9) бит=
= 2^(24) ^2^(17) = 2^7 =128 цветов в палитре
110111 = 10+1+0+1+1+1. 112 = 1+12+100