только такие значения как true или false могут принимать такие переменные.
1)джостик,2)графопостроитель,3)процесор,4)наушники,5)центральный процесор,6)акустические колонки,7)карта расширения,8)Delete,9)лазерный принтер.
var x,y:real; a:integer;
begin
writeln('Введите номер :');
readln(a);
case(a) of
1:
begin
writeln('x = ');
readln(x);
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
writeln('x = ');
readln(x);
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
writeln('x = ');
readln(x);
y := Power(x,2);
writeln('y = ',y);
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Я еще приведу пример кода на PascalABC.NET так для сравнение
begin
var a:=ReadInteger('Введите номер: ');
case(a) of
1:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
var x:=ReadInteger('x = ');
writeln('y = ',Power(x,2));
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Мне бы такие тесты
но нет мы на инфе в кс играли
1)Информация<span> - это любые сведения, принимаемые и передаваемые, </span><span>сохраняемые различными источниками.</span>
2)8 бит
3)а)1024
б)3*1024=3072
в)1024
г)2*1024=2048
4)вроде условие это if elif else
5)целый integer
символьный char
вецественный real
логический bool
6)обьявление и присваивание переменным занчений
7)Y не присвоено значение и точеки с запятой не хватает после обьявления real
если х больше 0 то прибавляет y если наоборот отнимает y
8)площадь на каком языке если паскаль то это не ко мне