uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
Если правильно поняла знак инверсии(т.е логическое отрицание) перед скобкой распространяется на скобку (В конъюнкция (т.е логич умножение) инверсия А) и на следующую (А дизъюнкция (т.е логичекое сложение) С),а связывает скобки дизъюнкция! =)
Если не соблюдать технику безопасности то может произойти замыкание или может сломаться компьютер !
32 бита на пикселей - это 4 байта
Одна страница займёт 640*480 пикселов
И таких страницы 4
4*640*480*4=4915200 байт
#include<stdio.h>
void main()
{<span>
int Number,Sum = 0;
</span><span> printf("Input Number: \n");
</span><span> scanf("%d",&Number);
</span><span> while(Number>0)
</span><span> {
</span><span> Temp = Number;
</span><span> Sum = Sum + (Temp%10);
</span><span> Number/=10;</span><span>
}</span><span>
printf("%d \n",Sum);
</span><span>}</span>