О дате рождения одного китайского поэта известно,что он родился ранее 1100 года,но позднее 1070,а также,что год кратен 7 и 5 одновременно.Составьте программу проверяющую,может ли вводимый год быть его годом рождения?
<span>10 INPUT D</span><span> 30 IF D > 1070 AND D < 1100 AND D MOD 7 = 0 AND D MOD 5 = 0 </span><span> THEN PRINT "Вводимый год может быть годом рождения китайского поэта" </span><span> ELSE PRINT "Вводимый год не может быть годом рождения китайского поэта"</span> END IF <span>40 END</span>
Program n1; Uses Crt; Var c: array[1..10] of integer; i, b, k:integer;Begin for i:=1 to 10 do begin c[i]:=random(40) - 20; write(c[i]:4); end; writeln(); writeln('Enter B = '); Readln(b); k:=0; for i:=1 to 10 do if (c[i]<b) then k:=k+1; writeln('Kol-vo iskomih chisel: ', k); <span>End.</span>