Question

Найти количество трехзначных чисел, которые при делении на 26 дают остаток 11ПОЖАЛУЙСТА ПОМОГИТЕ НАПИСАТЬ НА ЯЗЫКЕ ПАСКАЛЬ​

Answer 1

Ответ:

Объяснение:

Program prog;

var

 res:=0;

begin

 for var i:= 100 to 999 do

   begin

   if i mod 26 = 11 then res+=1

   end;

 

 println(res);

end.

Answer 2

Ответ:

Объяснение:

var

 count:integer;

 num:integer;

begin

 count:=0;

 for num:=100 to 999 do

   if ((num mod 26) = 11) then count:=count+1;

 writeln(count);

end.