Var a:array[1..10] of integer;k,n,i:integer;begin k:=0; n:=0; for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if a[i] mod 13=0 then k:=k+1 else n:=n+1; writeln(k,' ',n); // k-делятся на 13 n-не делятся на13 readlnend.
Ответ:
информатика помогла человеку много в чем, благодаря информатики появились компьютеры, ноутбуки, телефоны и т.д. А при информатики человек начил собирать мощные запчасти на компьютер на телефон и т.д .
Объяснение:
короч как-то так
1) 5.68гб
2) 5,760,000,000Кб
3) 9,605684
6) 2,54кб
1) потому что меняя масштаб растрового изображения, мы меняем количество пиклелей.
2) Потому что растровое изображение позволяет делать изображения большие по объёму
Процессор! Т.К все остальные устройства-- накопители