1)
var
i, A, B, sum: integer;
begin
sum := 0;
read(A, B);
for i := A to B do
begin
write(i, ' ');
sum := sum + i;
end;
writeln;
write(sum);
end.
2)
var
i, N, count, num: integer;
begin
count := 0;
read(N);
for i := 1 to N do
begin
read(num);
if (num mod 4 = 0) then count := count + 1;
end;
if (count = 0) then
write('NO')
else
write(count);
end.
3)
var
i, a, b, c, d: integer;
begin
read(a, b, c, d);
for i := a to b do
begin
if (i mod d = c) then write(i, ' ');
end;
end.
Ответ:
program Num5;
var
A: array [1..5] of Integer;
i, s, iLast: Integer;
begin
for i := Low (A) to High (A) do begin
Write ('Введите ', i, ' число: ');
ReadLn (A [i]);
end;
WriteLn;
s := 0;
for i := Low (A) to High (A) do begin
if A [i] > 0 then
s := s + A [i]
else
s := s - A [i];
end;
iLast := -1;
for i := High (A) downto Low (A) do begin
if A [i] > 0 then begin
iLast := i;
Break;
end;
end;
WriteLn ('Сумма = ', s);
if iLast <> -1 then
WriteLn ('Последнее положительное значение = ', A [iLast])
else
WriteLn ('Положительных значений не найдено.');
ReadLn;
end.
0 1 10 11 100 101 110 111 1000 1001 1010 <em>и т.д.</em>
Так как всего было 12 символов и каждому символу соответствует одна из двух конкретных букв, то:
Всего вариантов расшифровки может быть 12^2 = 144
Var y,x:double;
BEGIN
x:=1;
y:=5*sqr(x)+10*x+2;
WriteLn(y);
Readln();
END.
