var i:integer;
Begin
i:=16;
repeat
if i mod 2=0 then writeln(i);
i:=i+1;
until i>24
End.
Ответ:
Презентация,видео,просмотр,кнопка
Объяснение:
A)
program dengoda1;
var k, n:Integer;
begin
ReadLn(k);
n:=(k mod 7);
WriteLn(n)
end.
Б)
program dengoda2;
n:=(k mod 7)+1;
if (n=7)then
n:=0;