Question

срочно!!! делать в Паскале : запросить с клавиатуры четное 5-значное число , начинающееся тройкой и напечатать сумму его цифр. Если вводится не то число , то сообщить об этом и повторить ввод. Так же составить по этой задаче блок-схему и исп-таблицу - это не обязательно.

Answer 1

Var
 a,i,n,s:integer;
 
 function q (a:integer):integer;
 var h,n:integer;
  begin
      n:=a;
      h:=0;
      q:=0;
     while n>0 do
     begin
      n:=n div 10;
      h:=h+1;
       end;
       if h = 5 then
        begin
         n:=a div 10000;
          if n=3 then
            if a mod 2 = 0 then
          q:=1;
        end ;
     end;
      
 begin
  readln(a);
  i:=a;
   while q(i)<>1 do
    begin
    writeln('Error');
   readln(a);
   i:=a;
   q(i);
      end;
      while a>0 do
       begin
        s:=s+a mod 10;
        a:=a div 10;
       end;
      writeln(s);   end.