For i := a to b do
...
end;
Прошу:)
var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
b := d mod 100 div 10;
c := d mod 10;
writeln(b, c, a);
<span>end.
можно ещё сократить:
var a, b, c, d: integer;
begin
readln(d);
writeln(d mod 100 div 10, d mod 10, d div 100);
<span>end.
или даже:
var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
writeln(d - a * 100, a);
<span>end.</span></span></span>
B2 в pascal ABC NET<span>...........................................
B3 в pascal ABC NET:
const N = 1000;
var a: array [1..N] of integer; i, k, p, l: integer;
begin l := 0; p := 0; i := 1; readln(k); while k <> 0 do begin a[i] := k; p := i; i := i + 1; readln(k); end; for i := 1 to p do l := l - a[i]; writeln(l);end.</span>
1250 * 1024 = 1280000 байт
256 = 2^8 - следовательно для цвета используется 8 разрядов
один экран с цветов
640* 400 = 256000 бит * 8 = 2048000 бит / 8 = 256000 байт
страниц видеопамяти оно занимает
<span>1280000 / 256000 = 5 страниц</span>