Программный сбой... Если вы намерено пытаетесь открыть камеру, и в других приложениях она не открывается тоже, то советую сделать сброс настроек, если не помог и сброс, то вам нужно обратиться с сервисный центр
Ответ:
sqr( 15 + x )
Объяснение:
Функция sqr() возводит в квадрат число.
Program D1KPxx3;
uses crt;
var
i:integer;
min,rez:real;
b:char;
label 1,2;
begin
1:write('Введите время разговора');
read(min);
writeln('Введите номер дня недели');
read(i);
if (i=6) or (i=7) then
begin
rez:=((min*5.52)-(min*0.2));
write('Стоимость разговора с учетом скидки равна: ',rez);
goto 2;
end
else
rez:=min*5.52;
write('Стоимость разговора равна: ',rez);
2:writeln('Ещё?? Y/N');
readln(b);
if b='Y' then
goto 1;
if b='N' then
write('Пока!');
<span>end.</span>
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)