<span>const
D: real = 10; // число км в день
p: real = 1.12; // %
M: integer = 30;// число дней в месяце
N: integer = 25;// макс дистанция в условии задачи
var c: integer;
s, x: real;
begin
x := D;
for c := 1 to </span>M<span> do begin
s := s + x;
x := x * p;
end;
writeln('в месяц пробегает: ', s);
x := D; c := 0;
while (x < N) do begin
c := c + 1;
x := x * p;
end;
writeln('Нужно ', c, ' дней');
end.
</span>
Примеры:
1.
if (ivanov=0) or (petrov=1) then
begin
sidorov:=1;
end;
2.
if ivanov=0 then
begin
sidorov:=0;
end;
Помучился но все таки выполнил данное задание
512 бит = 512/8 байт = 64 байт
3072 Кб = 3072/1024 Мб = 3 Мб
2 Мб = 2*1024 Кб = 2048 Кб
Дискретизация информации - процесс преобразования информации из непрерывной формы представления в дискретную