Регистрация
ВАНЯПУХОВ
31.07.2020 01:42
Информатика
Есть ответ 👍

Даны действительные числа a, b, c. Проверить выполняются ли неравенства a < b < c. Delphi

269
325
Посмотреть ответы 1

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

maksik008
maksik008
4,8(43 оценок)
Uses crt; var s: string; i1, i2, err: integer; r: integer; begin readln(s); clrscr; val(s[1], i1, err); val(s[length(s)], i2, err); r : = i1 + i2; writeln(r); end.

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