М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
диана2463
диана2463
26.02.2022 05:30 •  Информатика

8 И 9 ЗАДАНИЕ
8. Запишите на языке программирования формулу: (на скрине)

9. Дан фрагмент программы на Паскале:
а:=25; b:=16;
while (а+b)>20 do begin а:=а-5; b:=b-2 end;
c:=а+b;

Чему будут равны значения переменных а, b и c после завершения этой последовательности операторов?

👇
Ответ:
Koko2010007
Koko2010007
26.02.2022

8.   cos(x) - ((abs(x-2))/(sqrt(x)+3))+sqr(1+x)

9.   а = 10       b = 10       c = 20

Объяснение:

9.

а = 25       b = 16

пока условие (а + b) > 20 истинно   (да) выполнить

Действия в цикле:

1) а = а - 5

2) b = b - 2

c = а + b

а = 25       b = 16

(25 + 16) > 20       41 > 20       (да)

Действия в цикле:

1) а = 25 - 5 = 20

2) b = 16 - 2  = 14

а = 20       b = 14

(20 + 14) > 20       34 > 20       (да)

Действия в цикле:

1) а = 20 - 5 = 15

2) b = 14 - 2  = 12

а = 15       b = 12

(15 + 12) > 20       27 > 20       (да)

Действия в цикле:

1) а = 15 - 5 = 10

2) b = 12 - 2  = 10

а = 10       b = 10

(10 + 10) > 20       20 > 20       (нет)

Цикл не выполняется

а = 10       b = 10

c = а + b = 10 + 10 = 20

а = 10       b = 10       c = 20

4,5(94 оценок)
Открыть все ответы
Ответ:
maina342
maina342
26.02.2022
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
4,6(58 оценок)
Ответ:
sheykinayulya
sheykinayulya
26.02.2022
1 задание 
var
a:array[1..10000000] of integer;
sk:real;
i,n:integer;
begin
Write('Размер массива - ');
readln(n);
Write('Заполните массив - ');
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]+5,' ');
end;
writeln();
for i:=1 to n do
sk:=sk+sqrt(a[i]);
write('Сумма квадратов ',sk);
end.
2 задание
var
a:array[1..12] of real;
max,min:real;
i:integer;
begin
write('Введите сред. t за каждый месяц - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
max:=a[1];
 for i:=1 to 12 do
 begin
if a[i]>max then max:=a[i];
end;
min:=a[1];
 for i:=1 to 12 do begin
if a[i]<min then min:=a[i];
end;
writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.');
end.
3 задание
var
a:array[1..12] of real;
sum:real;
i:integer;
begin
write('Введите учеников - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
for i:=1 to 12 do
begin
sum:=sum+a[i];
end;
sum:=sum/12;
writeln('Средний уровень успеваемости - ',sum);
end.
4,6(39 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ