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

35 ! 1) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =1; while k < 11 do begin s: =s+k; k: =k+1; end; write(s); end. 2) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while k < 30 do begin k: =k+3; s: =s+k; end; write(s); end. 3) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =3; k: =1; while k < 25 do begin s: =s+k; k: =k+2; end; write(s); end. 4) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =2; k: =2; while s < 50 do begin s: =s+k; k: =k+2; end; write(k); end. 5) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while s < 100 do begin s: =s+k; k: =k+4; end; write(k); end. 6) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =1; while s < 66 do begin k: =k+3; s: =s+k; end; write(k); end. 7) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =5; k: =0; while k < 15 do begin k: =k+2; s: =s+k; end; write(s); end. 8) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while k < 12 do begin s: =s+2*k; k: =k+3; end; write(s); end. 9) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while s < 80 do begin s: =s+2*k; k: =k+4; end; write(s); end. 10) определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =1; k: =0; while k < 13 do begin s: =s+2*k; k: =k+4; end; write(s+k); end.

👇
Ответ:
maksboris2002
maksboris2002
21.11.2021

1)55;

2)165;

3)147;

4)16;

5)32;

6)19

7)77;

8)36;

9)80;

10)65;

Объяснение:

Сумма арифметической прогрессии sₙ = (a₁ + aₙ) * n / 2;

Формула n-го члена арифметической прогрессии: aₙ = a₁ + d (n - 1);

Отсюда: n = (aₙ - a₁ + d) / d;

1)      

В цикле переменная k принимает значения: 2, 3 , 4, ... 11;

Всего итераций цикла: n =(11 - 2 + 1) / 1 = 10.

В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии:

aₙ = 10, т.к. при 11 цикл прервется.

(1 + 10) * 10/2  = 55.

2)

В цикле переменная k принимает значения: 3, 6 , 9, ... 30;

Всего итераций цикла: (30 - 3 + 3) / 3 = 10.

В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии:

(3 + 30) * 10/2  = 165.

3)

В цикле переменная k принимает нечетные значения: 3, 5 , 7, ... 25;

Всего итераций цикла: n = (25 - 3 + 2) / 2 = 12.

В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии и прибавим начальное значение s = 3:

aₙ = 23, т.к. при 25 цикл прервется.

(1 + 23) * 12 / 2 + 3 = 147.

4)

s k

4 4

8 6

14 8

22 10

32 12

44 14

58 16

5)

s k

0 4

4 8

12 12

24 16

40 20

60 24

84 28

112 32

112 32

6)

s k

4 4

11 7

21 10

34 13

50 16

69 19

7)

В цикле переменная k принимает четные значения: 2, 4, 6, ... 16;

Всего итераций цикла: (16 - 2 + 2) / 2 = 8.

В цикле к переменной s прибавляется k => посчитаем сумму арифметической прогрессии и прибавим начальное значение s = 5:

(2 + 16) * 8/2 + 5  = 77.

8)

s k

0 3

6 6

18 9

36 12

9)

s k

0 4

8 8

24 12

48 16

80 20

10)

s k

1 4

9 8

25 12

49 16

s + k = 49 + 16 = 65.

4,7(85 оценок)
Открыть все ответы
Ответ:
VladGulevevatiy
VladGulevevatiy
21.11.2021
//PascalABC.NET 3.2 сборка 1318

uses
  system;

type
  animal=record
    ani:string;
    name:string;
    yearOfBrith:integer;
    weight:real;
    food:real;
    country:string;
end;

    Const
  n=10;
 Var
  zoo:array[1..n] of animal;
  i,counter:integer;
  coun:string;
begin
for i:=1 to n do
  begin
    writeln('Данные о животном #',i);
    readln(zoo[i].ani);
    readln(zoo[i].name);
    readln(zoo[i].yearOfBrith);
    readln(zoo[i].weight);
    readln(zoo[i].food);
    readln(zoo[i].country);
  end;
write('Введите страну:');
readln(coun);
for i:=1 to n do
if zoo[i].country=coun then inc(counter);
writeln(counter);
writeln('Таблица норм пищи:');
for i:=1 to n do
writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food);
writeln('Список животных, возраст которых больше 10 ');
for i:=1 to n do
if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name);
end.
4,5(34 оценок)
Ответ:
NShmak
NShmak
21.11.2021
{1}
var
n: integer;
begin
write ('Введите заработанную сумму: ');
readln (n);
write ('Вы получите: ', (n*0.77)*0.61)
end.

{2}
var
a: array of double;
n, i: byte;
sum: longint;
begin
write ('Введите кол-во дробных чисел: ');
readln (n);
setLength (a, n);
   for i:=0 to n-1 do
   begin
   write ('Введите ', i+1, ' число: ');
   readln (a[i]);
   end;
 for i:=0 to n-1 do
 begin
 writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i]));
 inc (sum, trunc(a[i]));
 end;
write ('Сумма целых частей: ', sum);
end.

{3}
var
a, b, c, p: double;
begin
write ('Введите стороны треугольника: ');
readln (a, b, c);
  if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then
  write ('Такой треугольник не существует')
  else begin
   p:=(a+b+c)/2;
   write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' );
  end;
end.
4,5(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ