Program square;
var: y,x: real;
begin
writeln('Введите значение x');
readln(x);
y:=75*(x^2)+(sqrt(12)*(x^5));
writeln('Значение y',y);
end.
Степень можно задать также как x*x или
через exp. Решать вам.
Язык: Pascal ABC.Net
На паскале
var a: integer;
begin
write('Введите целое число'); Readln(a);
if a>=0 then write(a*a) else write(a*a*a);
end.
Const
<span> d: array [1..7] of string = </span>
<span> ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье'); </span>
<span>var </span>
<span> n: integer; </span>
<span>begin </span>
<span> write('Номер дня недели? '); </span>
<span> readln(n); </span>
<span> if (1 <= n) and (n <= 7) then writeln(d[n]) else writeln('Ошибка ввода'); </span>
<span>end.</span>
Клавиатура, джойстик, сканер, (принтер - устройство вывода)
Монитор, графопостроитель, принтер, (мышь - устройство ввода).
Жёсткий диск, flash-память, компакт-диск, (процессор - не элемент памяти) .
Принтер, акустические колонки, наушники, (микрофон - устройство ввода).
(Системный блок - обобщенное), центральный процессор, оперативная память, жёсткий диск, блок питания.
Системный блок, клавиатура, мышь, монитор, (акустические колонки - не обязательны).
Видеокарта, (карта расширения, звуковая карта, сетевая карта.
Enter, (End - др. функциональное назначение), Esc, Delete.
<span>(Цветовой принтер - не существует), лазерный принтер, матричный принтер, струйный принтер
слова, которые нужно удалить - в скобках, и пояснения, почему так</span>