Предмет: Информатика,
автор: KaiteNov
Паскаль! Помогите пожалуйста!
Дано целое число, больше 99. Найти третью от конца его цифру, последнюю цифру и разность квадратов этих цифр (использовать функции DIV и MOD).
Ответы
Автор ответа:
0
var a,a1,a3,s: integer;
begin
read(a);
if a>99 then begin
a1:= a div 100 mod 10;
writeln (a1);
a3:= a mod 10;
writeln (a3);
s:=a1*a1-a3*a3;
writeln(s);
end;
end.
begin
read(a);
if a>99 then begin
a1:= a div 100 mod 10;
writeln (a1);
a3:= a mod 10;
writeln (a3);
s:=a1*a1-a3*a3;
writeln(s);
end;
end.
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: bekabaikenov560
Предмет: Алгебра,
автор: Аноним