Ручка есть, а нет стержня, кошелек есть, а денег нет
#include <stdio.h>
int main()
{<span>
int s=0;</span><span>
for (int i=-5;i<=10;i+=3)</span><span>
s+=i;</span><span>
printf("%d", s);</span><span>
return 0;
</span><span>}</span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var t:= ReadlnString('Введите строку').Where(i -> (i >= '0')and(i <= '9')).JoinIntoString('');
Write('Строка чисел: ');
t.Println();
end.
F=(x∈P )*(x∈A)⇒ (x∈Q)*(x∈A)
F=¬((x∈P)* (x∈A) )+(x∈Q)*(x∈A)
F=¬(x∈P) +¬(x∈A)+(x∈Q)*(x∈A) (¬(x∈P)=x∉P)
F =x∉P + x∉A +x∈Q * x∈A
(Формулы: А⇒В=¬А+В; ¬(А*В)=¬А+¬В; ¬A +A*B =¬A+В)
F =х∉Р +х∉А +x∈Q
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.