Var a,b,c,d:integer;
e:real;
begin
writeln('Введите а и б: ');
readln(a,b);
c:=a+b;
d:=a*b;
e:=(a+b)/2;
Writeln('Сумма двух чисел: ',c);
Writeln('Произведение двух чисел: ',d);
Writeln('Среднее арифметическое двух чисел: ',e);
<span>end.</span>
Потому что это классическая задача о трех домах и трех колодцах, она не имеет решения, один (пусть последний) путь обязательно невозможно построить не рересекая другой.
Знайка это знал, и предложил им помериться
Сканер состоит из нескольких частей механической которая движется вдоль листа на нем расположена лампа подсветки, свет отражаясь от листа попадает на зеркало которое в свою очередь отражает его на чувствительную матрицу вот ка на картинке
54 Кбайт = 54*1024*8 бит
Время передачи при скорости 2^13 бит/сек =
54*1024*8/2^13 = 54 сек
Стоимость = 54*5 = 270 коп
Время передачи при скорости 2^10 бит/сек =
54*1024*8/2^10 = 432 сек
Стоимость = 432*5 = 2160 коп
Переплата = 2160-270 = 1890 коп.
Var r,w,s:integer;
begin
writeln('Введите исходные данные:');
write('Величина вклада (руб.): ');
readln(r);
write('Ежемесячная величина дохода (руб) ');
readln(w);
s:=r+3*w;
write('Сумма вклада по окончании трех месяцев: ',s,' руб.');
s:=r+6*w;
write('Сумма вклада по окончании шести месяцев: ',s,' руб.');
s:=r+12*w;
write('Сумма вклада по окончании года: ',s,' руб.');
end.