1. Имя переменной иначе называется:
В) идентификатор;
2. Тип переменной, определяющей площадь круга:
А) вещественный;
3. Какое из перечисленных значений может быть вещественным?
A)Корни квадратного уравнения;
4. Какое из приведенных значений может быть только константой?
C)количество продуктов, купленных в прошлом месяце;
5. Какое из приведенных значений должно быть переменной?
C)температура воздуха;
6. Какое из приведенных значений соответствует нормализованному виду числа 3600?
В)13.6ЕЗ; тут опечатка, должо быть 3.6ЕЗ
Program ez;
var a,b: real;
begin
read(a,b);
a:= a/2;
b:=b+30;
writeln(a);
writeln(b);
end.
Если что-то не так пиши
Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.
1 нецелесообразно переводить текст
2 компьютерный перевод нуждаеться в ключе
не уверен но как-то так
Procedure TForm1.Button1Click(Sender: TObject);
var
x1,y1,x2,y2 : double;
d1,d2 : double;
begin
x1:= StrToFloat( Edit1.Text);
y1:= StrToFloat( Edit2.Text);
x2:= StrToFloat( Edit3.Text);
y2:= StrToFloat( Edit4.Text);
d1:=Sqrt(x1*x1+y1*y1); //Теорема Пифагора
d2:=Sqrt(x2*x2+y2*y2); //Теорема Пифагора
if (d1<d2) then
Label1.Caption := 'Ближе точка с координатами X1,Y1'
else
if (d1>d2) then
Label1.Caption := 'Ближе точка с координатами X2,Y2'
else
Label1.Caption := 'Точки находятся на одинаковом расстоянии'
end;
Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так:
d1:= x1*x1+y1*y1;
<span>d2:= x2*x2+y2*y2;</span>
