1.Сканер 2. не знаю 3.Дисковод
N=256 I=8 бит(1 символ)
информационый объем равен 1024*8=8192 бита
Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
Формула:
=ЕСЛИ(D122+E122+F122+G122=20;"сдал на отлично";ЕСЛИ(И(D122>3;E122>3;F122>3;G122>2);"сдал на хорошо и отлично";ЕСЛИ(И(D122>2;E122>2;F122>2;G122>2);"сдал";ЕСЛИ(И(D122+E122+F122+G122=8);"к отчислению";"не сдал"))))
Var x, y: real;
begin
readln(x);
if x < 0 then y := Abs(sin(x));
if x > 3 then y := 1 / 2 + x * x * x;
if (x >= 0) and (x <= 3) then y := x / (x + 3);
write('y(', x, ') = ', (y):0:3)
end.