program xxx; var i, n, max : integer; s : real; a : array [1..20] of integer; begin write ('введите n= '); readln(n); for i: =1 to n do readln (a[i]); max: = a[1]; for i: =1 to n do if a[i] > max then max : = a[i]; s: = sqrt(max); write ('корень из наибольшего эл-та =', s)end.
Ответ дал: Гость
program chislo;
var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.
Ответ дал: Гость
двое детей поплывут вместе. один останется, другой поплывет обратно. останется поплывет мать. обратно поплывет ребенок. дети поплывут обратно. один останется другой поплывет за отцом. ребенок останется поплывет отец. затем опять пеплывет ребенок за братом и вместе они вернутся.
Ответ дал: Гость
каждый цвет может иметь 4 значения 2^2
если базовых цвета 3(rgb) то всего получится 4*4*4=64 цвета
Популярные вопросы