Program Colors;uses crt;var red,green,blue,yellow:string;beginTextcolor(4);clrscr;gotoxy(30,8);red:='Red';writeln(red);gotoxy(30,9);Textcolor(2);green:='Green';writeln(green);gotoxy(30,10);Textcolor(1);blue:='Blue';writeln(blue);gotoxy(30,11);textcolor(14);yellow:='Yellow';writeln(yellow);end.
Если я так понял,то так.Работы то на 5 минут...
1)A^(A импликация( стрелочка) В
3)-(А стрелочка Вслевание-С)
- инверсия это,если что
Задача 1
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 290 * 39 * 67 = 757770 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 757770 * 8 бит = 6062160.0 бит
6062160.0 бит = 757770.0 байт = 740.009765625 Кбайт = 0.7226657867431641 Мбайт < 1.44 Мбайт значит можно
Ответ да
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 256 * 95 * 80 = 1945600 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 1945600 * 8 бит = 15564800.0 бит
15564800.0 бит = 1945600.0 байт = 1900.0 Кбайт = 1.85546875 Мбайт = 0.001811981201171875 Гбайт
2 - 0.001811981201171875 = 1.998188019 Гбайт
program area;
var
c,d,e,a,b,r:integer;
s1,s2,s3,max,p: real;
begin
writeln('Введите стороный треугольника');
read(c, d, e);
writeln('Введите стороны прямоугольника');
read(a, b);
writeln('Введите радиус круга');
read(r);
p:=(c+d+e)/2;
s1:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s1:0:2);
s2:=a*b;
writeln('Площадь прямоугольника: ',s2);
s3:=pi*r*r;
writeln('Площадь круга: ',s3:0:2);
if s1>s2 then
max:=s1
else
max:=s2;
if max>s3 then
writeln('Наибольшпя площадь: ',max)
else
writeln('Наибольшая площадь: ',s3:0:2);
end.
CPU ---> Процессор
RAM ---> Оперативная память
ROM ---> Постоянная память
HDD ---> Жёсткий диск
Sound Card ---> Звуковая карта
Video Card ---> Видео карта