//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqInteger(8).Where(x->(x mod 3=0) and (x mod 10=4)).Count());
end.
Джостик
Графопосторитель
Принтер
Блок питания(Не точно)
Колонки
Карта расширения
End
Матричный принтер(Не точно)
Вроде так должно быть..
128 * 128 = 16384 пикселей
8 Кб = 8192 байт = 65536 бит
65536 / 16384 = 4 бита на пиксель
2⁴ = 16
Ответ: 16 цветов.
var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
#include <iostream>
using namespace std;
int main(){ double a;
int tmp;
cout <<"Введите число"<<endl;
cin>> a; tmp = (int)a;
cout <<tmp<<endl;
cout << a - tmp <<endl;
return 0;
}<span>
</span>