program aaa; var d, n : integer; begin write ('введите число n-'); readln (n); writeln('делители числа: '); for d : =1 to n do if n mod d = 0 then writeln (d)end.
Ответ дал: Гость
var c,a,b,i,j,l: integer; begin cls;
write('введите через пробел отрезок'); read(a,b); for i: =a to b+1 do begin j: =2; l: =round(sqrt(i)); while (i mod j < > 0) and (j < = l) do begin inc(j); end; if (j > l) then begin write(c,' '); c: =i; end; end; end.
Ответ дал: Гость
var
i,n: integer;
a: array [1..100] of integer;
begin
readln(n);
for i: =1 to n do
begin
if i mod 2 =0 then a[i]: =i-3
else a[i]: =i+3;
writeln(a[i]);
end;
end.
Ответ дал: Гость
если 2 сервера за 2 секунды могут обработать 2 миллиона запросов, то один сервер за 2 секунды обрабатывает 1 миллион запросов.
тогда за 6 секунд 1 сервер обрабатывает 1*3 = 3 миллиона запросов, а шесть серверов, соответственно, в 6 раз больше = 18 миллионов запросов.
Популярные вопросы