LPKenion
10.07.2022 19:18

7. Яких значень буде надано змінним, імена яких трапляються в командах, у результаті виконання таких фрагментів програм
(для різних значень вхідних даних):
1) i:=1; x:=0;
при 1) n=3; y='ТАК?
2) n=3; y='НЕМАЄ
while (I<n) and (y='TAK"):
3) n=1; y='ТАК
х: x+1;
4) n=1; y='НЕМАЄ
і: =i+1
5) n=5; y='ТАК​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
aselduishenova
10.07.2020 05:32

Ошибка CE-34878-0 является типичной ошибкой, означающей, что работа запущенной в данной момент игры была экстренно завершена. Если Вы получаете данную ошибку, тогда Вам нужно будет перезагрузить игру. В случае, если Вы продолжаете получать данное сообщение, тогда вполне возможно, что есть затруднения в работе самой консоли.

Для начала попробуйте выполнить основные шаги по устранению затруднения, представленные в статье ПО ССЫЛКЕ. Если выполнение предоставленных инструкций не позволить решить ситуацию, Вы также можете попробовать ДОПОЛНИТЕЛЬНЫЕ РЕКОМЕНДАЦИИ, предоставленные на официальном сайте Sony. Однако обратите внимание, что шаг 3 (инициализация PS4) удалит все данные с Вашей консоли не выполняйте данный шаг без предварительного создания резервной копии информации.  

Если ошибка по-прежнему сохраняется, мы рекомендуем обратиться в ПОДДЕРЖКУ PLAYSTATION напрямую. Специалисты поддержки обладают подробной информацией об ошибках, специфичных для PS4, в частности CE-34878-0. Вы также можете сообщить НАМ о возникающих затруднениях.  

Объяснение:

0,0(0 оценок)
Ответ:
valeraKRUT05
19.02.2022 06:55

Задача 1:

var a,r: double;

begin

writeln('Введите сторону квадрата a');

readln(a);

writeln('Введите радиус круга r');

readln(r);

writeln('Площадь фигуры: ',a*a-Pi*r*r);

end.

Задача 2:

var a, b, c, D, x1, x2: real;

begin

writeln('Введите A, B, C');

readln(a,b,c);

D:=b*b-4*a*c;

if D>=0 then

 begin

  if (sqrt(D)=0) then

   begin

    x1:=-b/(2*a);

    write('Один корень ',x1:0:2);

   end

  else

   begin

    x1:=(-b-sqrt(D))/(2*a);

    x2:=(-b+sqrt(D))/(2*a);

    write('Первый корень: ',x1:0:2,' Второй корень: ',x2:0:2);

   end

 end

else write('Корней нет');

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота