Паскаль! Помогите пожалуйста!Дано...

Тема в разделе "Информатика", создана пользователем vladimnest, 20 янв 2010.

  1. vladimnest

    vladimnest New Member

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

    shinne77 New Member

    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.
     
    shinne77, 20 янв 2010
    #2

Поделиться этой страницей

Наша группа