Question

язык паскаль помогите пожалуйста ​

Answer 1

Pascal

(*Задача 1*)

var

 a:integer;

begin

 write('Входные даные: ');

 readln(a);

 write('Выходные даные: ');

 if a mod 3 = 0 then

   if a mod 7 = 0 then

     writeln('C')

   else

     writeln('A')

 else

   if a mod 7 = 0 then

     writeln('B')

   else

     writeln('D')

end.

(*Задача 2*)

var

 a, b, i, s : integer;

begin  

 write('Входные даные: ');

 readln(a, b);

 s:=0;

 for i:=a to b do

   if i<10 then inc(s, i);

 writeln('Выходные даные: '+ inttostr(s));

end.