Var i,s,a:integer;
Begin
a:=1;
for i:=10 to 99 do
Begin
s:=i mod 10+ i div 10;
if s=8 then a:=a*i;
end;
writeln (a);
<span>end.</span>
1) 15, 25, 35, 45
2) 15, 12
Var a,b,c : real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln(0)
else if (a<>b)and(b<>c)and(a<>c)
then writeln(1)
else if (a<>b)or(b<>c) then writeln(2)
else writeln(3);
end.
Пример:
a=3
b=3
c=4
2
14. д
15. д
16.
а) 100000₂
б) 111111₂ - Ответ
в) 111110₂
г) 100001₂
д) 1000000₂
Ответ: б)
17. 1Байт, Ответ: г
18. Ответ: г
19. вроде д
20. Ответ: б
21. Ответ: г