Var a,b,k,m:integer;
begin
write('A, B, K: ');
readln(a,b,k);
m:=2*(a+b)*k;
writeln('m = ',m);
end.
Пример:
A, B, K: 3 4 200
m = 2800
Эмн, счеты, калькулятор, ЭВМ, арифмометр, логарифмическая линейка, таблицы...
Абак - <span> </span>счётная доска<span>, применявшаяся для </span>арифметических<span> </span>вычислений.
А) при удалении строки 2 ячейка сдвинется вверх на одну строку, станет ячейкой Е3 и будет находиться сумму ячеек A3 и D3
б) при удалении строки 7 ничего не изменится
в) после вставки пустой строки перед строкой 4 ячейка сдвинется вниз на одну строку, станет ячейкой Е5 и будет считать сумму ячеек A5 и D5
г) ячейка сдвинется налево на один столбик, станет ячейкой D4 и будет считать сумму ячеек А4 и C4
д) ничего не изменится
Исправных и неисправных поровну, по 1008. Когда спрашивают исправную машину, она считает: без неё 1007 исправных и 1008 неисправных и говорит правду: неисправных больше. Когда спрашивают неисправную, она считает: без неё исправных 1008 и неисправных 1007 и врёт, что неисправных больше. И совсем необязательно было прерывать опрос, результат был бы такой же.