• Помогите с Паскалем ABS.
    1 дано пятизначное число. определить сумму второй и пятой цифры.
    2 дано пятизначное число. Определить сумму второй и четвёртой цифрой.
    3 написать программу в которой подсчитывается количество чётных чисел среди трёх, введёных с клавиатуры

Ответы 3

  • №3
  • var a,b,c,d: integer;beginreadln(a,b,c);if (a mod 2 =0) then d:=d+1;if (b mod 2 = 0) then d:=d+1;if (c mod 2 = 0) then d:=d+1;writeln(d);end.
  • №2.var a,b: integer;beginreadln(a);b:=a;a:= (a div 10) mod 10;b:= (b div 1000) mod 10;writeln(b+a);end.№1.var a,b: integer;beginreadln(a);b:=a;a:= a  mod 10;b:= (b div 1000) mod 10;writeln(b+a);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years