program primitive; var a,b: integer; begin  read(a,b); writeln(a mod b); end.чему в школе то  ...Подробнее

Минимально требуемый объем равен 1600*1200*24 бит/пиксель = 46080000 бит = 5760000 байт = 5625 к байт = 5,5 мбайт подходит карта 64 мегабайта  ...Подробнее

фамилия                   имя           отчество...Подробнее

такая естественная красота самая теплая : dd что есть, то есть...Подробнее

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа. на  tpascal: var i: integer; begin for i: =10 to 99 do begin if i mod 3 = 2 then writeln (i,'...Подробнее

1) var x,y,s: real; begin readln(x,y); s: =abs(x*y); writeln(s: 8: 2); end. 2) var a: integer; begin readln(a); if a mod 2=0 then writeln("четное число") else  writeln("...Подробнее

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....Подробнее

фефраль-месяц зимы; май-месяц весны; август-месяц лета; сентябрь-месяц осени...Подробнее

б)имя существительное...Подробнее

1)через сеть интернет либо съемные носители 2)размножался в системе, выполнял нагрузку на цп до 100% 3)удалил с антивирусной программы 4)нужно ставить защиту на браузер и перед ра...Подробнее