#include <iostream>
using namespace std;
int main()
{
int n = 0, f = 0, t = 0;
cin >> n;
if (n <= 1015 && n >= 1) {
for (int i = 1; i <= n; ++i) {
t = -i;
if (i % 2 == 0) {
t = abs(t);
}
cout << t << " ";
f += t;
}
} else {
cout << "Error" << endl;
}
cout << endl << "Res: " << f;
return 0;
}
Delphi 2010
procedure Zadanie1(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := A to B do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A+1);
ShowMessage(s);
end;
procedure Zadanie2(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := B-1 downto A+1 do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A-1);
ShowMessage(s);
end;
procedure Zadanie3(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + i;
ShowMessage('Сумма чисел = ' + IntToStr(s));
end;
procedure Zadanie4(A: Integer; B: Integer);
Var
p: Integer;
i: Integer;
begin
p := 1;
for i := A to B do
p := p * i;
ShowMessage('Произведение чисел = ' + IntToStr(p));
end;
procedure Zadanie5(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + sqr(i);
ShowMessage('Сумма квадратов = ' + IntToStr(s));
end;
var
s:string;
z,z1,i:integer;
begin
readln(s);
z:=0;
z1:=0;
for i:=1 to length(s) do
begin
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z>z1 then writeln('больше букв м');
if z<z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
end.
600*1024=614400 кбайт- объем диска
614400/500 = 1228.8 кол-во фотографий, округляем в меньшую сторону так как куска фотки быть не может = 1228
1228*6 = 7368 с = 2.04666666666 часа уйдет времени на просмотр
Ответ: 7368 с