Предмет: Информатика,
автор: Princessa51
Хеллллпммиииииииии пжжжж
Приложения:

Ответы
Автор ответа:
0
type
arr = array[1..100000] of longint;
var
d, k, i: longint;
n, m: arr;
begin
readln(k);
for i := 1 to k do
begin
read(n[i]);
readln(m[i]);
end;
for i := 1 to k do
begin
d := 19 * m[i] + (n[i] + 239) * (n[i] + 366) div 2;
writeln(d);
end;
end.
arr = array[1..100000] of longint;
var
d, k, i: longint;
n, m: arr;
begin
readln(k);
for i := 1 to k do
begin
read(n[i]);
readln(m[i]);
end;
for i := 1 to k do
begin
d := 19 * m[i] + (n[i] + 239) * (n[i] + 366) div 2;
writeln(d);
end;
end.
Похожие вопросы
Предмет: История,
автор: rahimberdydaniar
Предмет: Математика,
автор: tata823054
Предмет: Математика,
автор: aryzhanskiy09
Предмет: Геометрия,
автор: Renata875
Предмет: Биология,
автор: keitlaw