Program voz;
uses crt;
var a,b,c,d,e,f : integer;
begin
Write('Какая сейчас дата?(д м г)');
Read(a,b,c);
write('Введите дату вашего рождения (д м г)');
read(d,e,f);
if (b>=e) and (a>=d) then Writeln('Вам ',c-f,' лет') else writeln('Вам ',c-f-1,' лет');
end.
Если на каждый цвет выделено по байту (и нет прозрачности), то i = 32*64*3 = 6144 байт = 6 Кбайт.
uses Math; // Ссылка на модуль с объявлением функции power
var
x, k, a, y: Real; // объявляются переменные типа "с плавающей запятой"
begin
Write ('Введите x, k, a: ');
ReadLn (x, k, a); // ввод с клавиатуры значений переменных
y := Power (x + 1, 2) / 3 / k + Power (a, 4) + 2; // power - функция возведения в степень
WriteLn ('y = ', y);
end.
Ответ:
управляет работой ЕВМ по заданной программе И выполнять операции обработки информации микропроцессор кто сверхболшая интегральная схема который реализует функции процессора ПК