uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
Var
r, r1, r2, r3, r4 : real;
begin
write ('R1 = '); readln (r1);
write ('R2 = '); readln (r2);
write ('R3 = '); readln (r3);
write ('R4 = '); readln (r4);
r := r1 + (r2 * r3) / (r2 + r3) + r4;
writeln ('R = ', r);
end.
46, 75 и 80
т.к. 46 чётное;
75 не удвл. высказыванию т.к. там написано строго меньше 75;
80 > 75