Sweetkristina
02.02.2020 03:32

Надо найти Сумму N членов ряда: 17+(a)/(k+1)+(3*a)/(k+2)+(5*a)/(k+3)... N>0, K>0. N,k и a вводятся с клавиатуры Сочинила бред и сама запуталась (

Public Sub Mak3()
Dim v As Integer, Sum As Integer, i As Integer
knopk = vbYes
ti = "Сумма членов ряда"
v = InputBox("Введите N", ti, 2)
If v = "" Then
MsgBox "До свидания": End
End If
n = Val(v)
v = InputBox("Введите K", ti, 6)
If v = "" Then
MsgBox "До свидания": Exit Sub
End If
K = Val(v)
If n <= 0 Or K <= 0 Then
t = MsgBox("Ошибка. Продолжить?", vbYesNo, ti)
End If
For i = 1 To v
Sum = Sum + Str(i) + "+"
Next
End Sub

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vadim252525
26.01.2022 04:01

В обратном направлении от двух населенных пунктов на расстоянии 600 км. Через 4 часа вне комбайна мотоцикл в 4 раза быстрее его встретились. а) Какая скорость комбайна? б) Какая скорость у мотоцикла? В) сколько часов проезжает комбайн между двумя населенными пунктами?. а) Направленный отрезок называется вектором. НЕТ ДА б) Задано в координатной плоскости Через точки A (2; -2), B (-1; 4), Нарисуйте вектор AB.Точка A (2; 3) на рисунке - это точка, симметричная относительно оси OX. найти: А. А (-2; 3) Б. А (2; -3) К. А (-2; -3) Д. А, (-3; 2)Күндер ұзарып, табиғат гүлдене бастайды.3. а) Бағытталған кесінді вектор деп аталады.

ЖОК

ИЯ

b) Координаталық жазықтықта берілген

А (2; -2), B(-1;4) нүктелері арқылы,

АВ векторын кескіндеңіз.Суреттегі А (2;3) нүктесі ОХ осіне қарағанда симметриялы нүктесін

табыңыз:

A. A(-2;3)

B. A(2;-3)

C. A(-2;-3)

D. А, (-3;2)Менің ең жақсы көретін жыл мезгілім – ол көктем. Бұл мезгіл маған қуаныш сезімін және ерекше көңіл-күйді сыйлайды. Күндер ұзарып, табиғат гүлдене бастайды. Аспан ашылып, күн сәулесі қарды ерітеді. Құстар қайта оралып, жерден алғашқы гүлдер шығып, жануарлар және жәндіктер қысқы ұйқыдан оянады. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Менің ойымша, көктем – ең әдемі жыл мезгілі. Адамдар өздерін бақытты сезінеді. Өйткені, көпкен күткен уақыт келді! Барлық адамдар белсенді өмір сүре бастайды. Ауада көктемнің иісі пайда болады. Көктем – ең әдемі жыл мезгілі!

0,0(0 оценок)
Ответ:
Anabella98
16.07.2021 20:54

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

var a: array[0..100,0..100] of integer;

 

n, m, i, j, max, col: integer;

 

 

 

begin

 

  read(n);

 

  read(m);  

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do

 

  begin

 

  read(a[i,j]);

 

  if max< a[i,j] then max: =a[i,j];

 

  end;

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do  

 

  if max=a[i,j] then begin inc(col); break; end;

 

  writeln(col);

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do  

 

  if max=a[i,j] then begin write(i, ' '); break; end;    

 

end.

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