Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
Язык какой? надо знать язык программирования
3 * 1024 = 3072 байт / 1536 = 2
40 мс * 2 = 80 мс
А = 25 - количество людей всего
а1 - количество людей по информатике
а2 = 16 - количество людей по математике
а3 = 10 - по физике
а5 = 7 - все три олимпиады
а4 = 12 - в двух любых
Формула свойств: А = -(а1+а2+а3) + а4 - а5
25 = -(26 + а1) + 12 - 7
25 = -26 - а1 +5
25 = -21 - а1
а1 = 4 - принимали участие в олимпиаде по информатике