Излучает намного меньше радиации, компактнее, не так сильно портит зрение,высокие разрешения, берёт меньше энергии.
Var
sum, count, t : integer;
begin
sum := 0; count := 0;
while not eoln do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
если количество элементов указано
var
sum, count, t, n, i : integer;
begin
sum := 0; count := 0;
read (n);
for i := 1 to n do
begin
read (t);
if t > 0 then
begin
sum := sum + t;
count := count + 1;
end;
writeln (sum, ' ', count);
end.
4)
var
a, b: integer;
function max(a, b: integer): integer;
begin
if a > b then max := a else max := b;
end;
begin
readln(a, b);
writeln(max(a, 2 * b) * max(2 * a - b, b));
end.
5)
const
n = 10;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do
begin
readln(a[i]);
if i mod 2 = 0 then s := s + a[i];
end;
writeln(s);
end.
6)
const
handsfree = false;
var
a: array[1..100, 1..100] of real;
product: real;
i, j, m, n: integer;
begin
{ввод матрицы}
if handsfree then begin
n := random(20) + 2;
m := random(20) + 2;
end
else begin
write('n, m =');
readln(n, m);
end;
writeln('Данные матрицы:');
for i := 1 to m do
begin
for j := 1 to n do
if handsfree then begin
a[i, j] := random(100) - 50;
write(a[i, j]:4, ' ')
end
else
read(a[i, j]);
writeln;
end;
product := 1;
for i := 1 to m do
for j := 1 to n do
if a[i, j] > 0 then
product := product * a[i, j];
writeln('product = ', product);
end.
Ответ:
var x,y,i:integer;
begin
y:=-7;
for i:=1 to 39 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
var x,y:integer;
begin
y:=-7;
repeat
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
until y>107
end.
var x,y:integer;
begin
y:=-7;
while y<=107 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
Дано
N=16
K=128×200
Найти
I
Решение
I=k*i
N=2^i=16
i=4
I=4×128×200=102400 бит
102400:8=12800 байт
12800:1024=12,5 Кб
Ответ: 12,5 Кб