var i,s,p: integer; a: array [1..100] of integer; begin s: =0; p: =0; writeln('vvedite masiv a: '); for i: =1 to 10 do begin write('a[',i,']='); readln(a[i]);...
Подробнее
1 способ применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом): 16 8-8 4-4 4-4 2-2 2-2 2-2 2-2 1-1 1-1 1-1 1-1 1-1 1-1 1-1 1...
Подробнее
var n, i, k, a: integer; begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end....
Подробнее
program first; var z,d,k: integer; begin writeln('input z,d,k'); readln(z,d,k); if (d> =z) then d: =d-z k: =k+1 writeln(d,' ',k); readln; end....
Подробнее
Используя этот сайт, Вы даете согласие на использование cookies. Вы можете отказаться от использования cookies, настроив необходимые параметры в своем браузере.