<em>VAR</em>
<em> a,b,c: LongInt;</em>
<em>BEGIN</em>
<em> Read(a,b,c);</em>
<em> </em>
<em> if (a*b = 1)or(a*c = 1)or(b*c = 1) then Write('ДА')</em>
<em> else Write('НЕТ');</em>
<em>END.</em>
2,3,5 думаю что будет правильно
Var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
Ответ:
d = int(input())
m = int(input())
yc = int(input())
c = yc // 100
y = (yc - c) % 100
otv = (d + ((13 * m - 1) // 5) + y + (y // 4 + c // 4 - 2 * c + 777)) % 7
print(otv)
Объяснение: