Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу. Легкая программа, но замудренная..
Пример:
case a of
01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');
02.02.98 : writeln (2 февраля тысяча девятьсот девяносто восьмой год');
Тут дата : writeln ('Тут что выводить');
итд
end;
Микрофон - запись аудиодорожки
Сканер - считывание и перевод в "компьютерный формат" бумажных документов, фотографий, и тд.
Монитор - отображение информации
Мышь - устройство ввода
Процессор - выполняет обработку информации, измеряя напряжение и переводя его в 0 и 1
Принтер - вывод "компьтерного формата" документов на бумагу
Хранение данных - запись на жесткий диск ( HDD, SSD и тд.) систематизированных в виртуальные папки 0 и 1 ))
Пишу с телефона если есть возможность-проверь.Если справился,буду рад)
Uses CRT;
Var a,b,c,D,x,x1,x2 : integer;
Begin
D:=0;
Writeln('Дано уравнение ax^4+bx^2+c=0,введите а,b,c);
Readln(a);readln(b);readln(c);
D:=b*b - 4*a*c;
If D<0 then writeln('Нет корней');if X=0 then writeln('Уравнение имеет 1 корень-',(-b/2a)*b');
if D>0 then begin
x1:=(-b+ sqrt D)/2a;
x2:=(-b- sqrt D)/2a;
writeln('Корни вашего уравнения:');writeln('x1=',x1*b,'x2=',x2*b);
End;
End.
Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231
1)1536 Кбайт в 1.5 Мбайтах.
1 Мбайт=1024кбайтам
2)120байт=960битам.
1 байт = 8 битам
3) Байт, Кбайт, Мбайт, Гбайт, Тбайт.