Var a,b,i:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do if i mod 3 = 0 then write(i,' ');
writeln;
<span>end.
Пример:
a=10
b=20
<span>12 15 18 </span></span>
1.128:1024=0,125(Мб)
2.3,5•1024=3,584(кб)
2.512:8=64(байт)
1. Клавиатура
2. Мышь
3. Диск
6. for( i = 1000; i <= 9999; i++ ) if ( (i % 133) == 125) & ( (i % 134) == 111) printf( "%d\n", i );
7. for( ; n > 10; n /= 10 );
8. for( r = 0; n > 0; n /= 10 ) r = r*10 + n % 10;