Укажите как записать условие, которое истинно если k кратно 7.

k div 7 = 0;

k mod 7 < 1;

k mod 7;

k/7 = 0;

k mod 7 = 0;

объединение северного и южного египта произошло около 3000 г. до н.э.

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

сумма=18

семерки нету

или тебе программу написать?

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.