Var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then s:=s+i;
writeln(s);
end.
Это кит, да?) ответ Б, кстати там 25 особенно хорош) 3 часа потратил)
Информатика?
Попробуй нажать;
Ctrl+Alt+Home
Чтобы поставить пять пробелов подряд,достаточно 5 рас нажать клавишу
<span><span><span><span>
а)
A B C A-->B --B+C результат
0 0 0 1 1 1
0 0 1 1 1 1
0 1 0 1 0 0
0 1 1 1 1 1
1 0 0 0 1 0
1 0 1 0 1 0
1 1 0 1 0 0
1 1 1 1 1 1и далее в том же духе...</span></span><span /></span></span><span><span /></span>