Begin
writeln(2798 mod 28 div 9);
end.
Ответ 2
7 мин 44 сек = 464 сек
Скорость передачи: 1392 / 464 = 3 Кб/сек
Я не до конца понял вопрос т.к. ты его не дописал, но.
Если ты спрашиваешь о основных языках мира то это: русский, английский, испанский, французский, арабский и китайский.
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.