Регистрация
киря2289
14.05.2022 21:00
Информатика
Есть ответ 👍

Нужно написать свойства автобуса: 1) существенные с точки зрения пассажира 2) существенные с точки зрения водителя 3) несущественные с точки зрения пассажира 4) несущественные с точки зрения водителя !

268
402
Посмотреть ответы 2

Ответы на вопрос:

Qwerfcsfvfw
Qwerfcsfvfw
4,6(18 оценок)
Это к информатике не относится вообщетл
Annna987
Annna987
4,6(43 оценок)

1.

var a,i,sum: integer;

s: string;

begin

  writeln('введите 4-ёх значное число');

  readln(a);  

  s : = inttostr(a);

  for i : = 1 to s.length do

    if i mod 2 = 1 then

      sum : = sum + strtoint(s[i]);

  writeln('сумма: ',sum);

end.

2.

var n,y: integer;

begin

  writeln('введите число n');

  readln(n);

  if n = 0 then

    y : = 0

  else if n mod 2 = 0 then

    y : = -1

  else if n mod 2 = 1 then

    y : = 1;

  writeln('y = ',y);

end.

Популярно: Информатика