45 ! решать в paskalabc.net. автомобиль движется по автодороге из пункта a в пункт b. на дороге установлены километровые столбы. на каждом столбе записано по два числа. число в направлении движения указывает расстояние от столба до пункта a. число с обратной стороны указывает расстояние от столба до пункта в. проезжая мимо одного из столбов, водитель увидел, что в направлении движения на нём записано число х, а с обратной число у. проехав ещё некоторое время, водитель увидел столб в направлении движения которого было записано число z. вы должны определить, какое расстояние водителю осталось проехать до пункта в. примеры ввода: 7 20 18 примеры вывода: 9
Ответы
Можно вычислить используя формулы в ячейках. То есть в вашем случае можно использовать =СУММ(диапазон), где диапазон - срез таблицы, ячейки которого будет считаться формулой СУММ. Его можно указать форматом XN:Yn, где X, Y - буквенное обозначение столбцов, а N, n - строки. Можно это интерпретировать как ячейка с левого верхнего края (XN) до нижнего правого (Yn).
Пример решения вашей задачи:
Впишите в любую стороннюю ячейку значение =СУММ(A1:A15) для вычисления суммы первых пятнадцати строк в столбце A.
Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var
res,num:integer;
begin
res:=0;
repeat
Read(num);
if (num>res) and (num<=15) then res:=num
until num=0;
Writeln(res)
end.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.
var
res,num:integer;
begin
res:=0;
repeat
Read(num);
if (num>res) and (num<=15) then res:=num
until num=0;
Writeln(res)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadInteger2;
var z:=ReadInteger;
Writeln(x+y-z)
end.
Пример
7 20
18
9