Program ip;
var s,s1:string;
i,j,x,err:integer;
f:boolean;
begin
readln(s);
i:=1; j:=1; f:=true;
while (j<4) and f do
begin
while s[i]<>'.' do
begin
s1:=s1+s[i];
inc(i);
end;
val(s1,x,err);
f:=x<256;
delete(s1,1,length(s1));
inc(j);
end;
if f then
begin
while i<=length(s1) do
begin
s1:=s1+s[i];
inc(i);
end;
f:=x<256;
end;
if f then writeln(1) else writeln(0);
<span>end.</span>
Ответ:
70
Объяснение:
Дано условие "не (х<=71) или (х не делится на 7)" и требуется его ложность. Добавим к нему отрицание и будем искать истинность:
не (не (х<=71) или (х не делится на 7))
По закону де-Моргана избавимся от внешнего отрицания:
(х<=71) И НЕ (х не делится на 7), что равносильно
(х<=71) И (х делится на 7)
Итак, нужно найти такое наибольшее число, которое кратно 7 и не превышает 71.
71 не кратно 7, а следующее меньшее, 70 - кратно. Это и есть ответ.
Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
247,128,346,427...выбирай любое.