Паскаль! Помогите пожалуйста! Дано целое число, больше 99. Найти третью от конца…

Question

33

Паскаль! Помогите пожалуйста! Дано целое число, больше 99. Найти третью от конца его цифру, последнюю цифру и разность квадратов этих цифр (использовать функции DIV и MOD).

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

deedenn · Accepted Answer

94

deedenn

25 марта 2023

Var a,a1,a3,s: integer; beginread (a); if a>99 then begina1: =a div 100 mod 10; writeln (a1); a3: =a mod 10; writeln (a3); s: =a1*a1-a3*a3; writeln (s); end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: