Program summa;
uses crt;
var x,y,s: real;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
s=a+b;
write('s=',a,'+',b,'=',s);
readln;
end.
мозг быстрее всего обрабатывает информацию , флешка дольше всего хранит инфу а дальше сам понять не могу
X:= 15 mod 14 (Ответ 1)
y:= 1
Пояснение mod - остаток от деления числа
Дано: растр 1024*768 N=16777216
Найти: I - объем
Решение: N=
![2^{i}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+)
, где i- глубина цвета, N -палитра
16777216=
![2^{i}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+)
, i=24 бит
I=1024*768*24 бит=18874368 бит=2359296 байт=2304Кб=
2,25Мб
Program test;
const PI=3.14;//Пи делаем константой, потому что оно не меняестся
var
r,s,c:real;//Переменные типа real что бы можно было записывать дробные значения
begin
Write('Введите радиус: ');
Readln(r);//вводим радус
s:=PI*sqr(r);//вычисляем площадь
c:=2*PI*r;//вычисляем длину окружности
Writeln('S = ',s);//
Writeln('P = ',c);//Выводим результат
end.