7. b 2 . в алгоритме, записанном ниже, используются переменные a и b. символ «: =» обозначает оператор присваивания, знаки «+», «-», «» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций и порядок действий соответствуют правилам арифметики. определите значение переменной a после выполнения алгоритма: a : = 10b : = 5b : = 100 + a/b a : = b/6a в ответе укажите одно целое число — значение переменной a.

👇

Увидеть ответ

Ответ:

12рок1

11.07.2021

1.7

4,5(29 оценок)

Открыть все ответы

Ответ:

Neznaika123shsgwheh

11.07.2021

Бит — добро…»
Начало старинной (!) русской народной пословицы
Задания предназначены для учащихся. Вам будут предложены изречения, представляющие собой пословицы и поговорки, смысл которых изменен, так сказать, на компьютерный лад. Назовите эти пословицы и поговорки.
1. Информатике учиться всегда пригодится. (Грамоте учиться всегда пригодится.)
2. Когда компьютер обслуживают 7 техников, у него не работает монитор. (У семи нянек дитя без глазу.)
3. Компьютер памятью не испортишь. (Кашу маслом не испортишь.)
4. Скажи мне, какой у тебя компьютер, и я скажу, кто ты. (Скажи мне, кто твой друг, и я скажу, кто ты.)
5. На монитор нечего пенять, коли видеокарта крива. (На зеркало нечего пенять, коли рожа крива.)
6. Бит килобайт бережет. (Копейка рубль бережет.)
7. Семь бед — один «Reset». (Семь бед — один ответ.)
8. Подаренному компьютеру в системный блок не заглядывают. (Дареному коню в зубы не смотрят.)
9. В Силиконовую долину со своим компьютером не ездят. (В Тулу со своим самоваром не ездят.)
10. Не идентификатор красит файл, а файл идентификатор. (Не место красит человека, а человек место.)
11. END — программе конец. (Конец — всему делу венец.)
12. Программа высококвалифицированного программиста боится. (Дело мастера боится.)
13. Что напечатано принтером, не удалить и ножом. (Что написано пером, не вырубить и топором.)
14. И у опытного программиста бывают ошибки. (И на старуху бывает проруха.)
15. Любишь играть в компьютерные игры, люби и сам программировать. (Любишь кататься —люби и саночки возить.)
16. Интерес к программе приходит во время ее разработки. (Аппетит приходит во время еды.)
17. Где разрабатывают программы, там бывают ошибки. (Где лес рубят, там щепки летят.)
18. Будешь одновременно разрабатывать две программы — ни одна не получится удачной. (За двумя зайцами погонишься — ни одного не поймаешь.)
19. На отладчик надейся, но сам старайся не ошибаться. (На Бога надейся, а сам не плошай.)
20. Одна маленькая ошибка всю программу портит. (Паршивая овца все стадо портит.)
21. На NOT и суда нет. (На нет и суда нет.)
22. Не только опытные программисты программы разрабатывают. (Не боги горшки обжигают.)
23. Не так страшна задача, как кажется. (Не так страшен черт, как его малюют.)
24. Не хвались, начиная разработку программы, а хвались, закончив ее. (Не хвались, идучи на рать, а хвались, идучи с рати.)
25. За компьютером товарища хорошо, а за домашним лучше. (В гостях хорошо, а дома лучше.)
26. Неправильного результата работы программы без причины не бывает. (Дыма без огня не бывает.)
27. Знал бы, где ошибусь в программе, был бы вдвойне внимателен. (Знал бы, где упаду, соломки бы подостлал.)
28. Из программы фрагмент не выкинешь. (Из песни слова не выкинешь.)
29. Каждый программист свою систему программирования хвалит. (Каждая курица свой насест хвалит.)
30. Лиха беда — BEGIN. (Лиха беда начало.)
31. Первый запуск программы всегда неудачен. (Первый блин всегда комом.)
32. Плох тот программист, который не надеется стать Биллом Гейтсом. (Плох тот солдат, который не надеется быть генералом.)
33. Истинное утверждение неприятно воспринимать. (Правда глаза колет.)
34. Программист программиста всегда узнает. (Рыбак рыбака видит издалека.)
35. То много комментариев к программе, то их вообще нет. (То густо, то пусто (то нет ничего).)
36. Бит — это один или ноль. (Бабушка надвое сказала.)
37. Мал бит, да важен бывает. (Мал золотник, да дорог.)
38. Семь раз подумай, прежде чем удалить файл. (Семь раз отмерь, один раз отрежь.)
39. Язык программирования, который я знаю, — друг мой. (Язык мой — враг мой.)
40. Транслятору доверяй, но правильность программы сам проверяй. (Доверяй, но проверяй.)
41. В программе на языке Бейсик правила языка Паскаль не применяют. (В чужой монастырь со своим уставом не ходят.)
42. Если не получается решить проблему вечером, отложи решение на утро. (Утро вечера мудренее.)
43. В заголовке оператора цикла с параметром использовано условие. (В огороде бузина, а в Киеве дядька.)
44. Одна бабушка сказала, что бит может принимать значения 0 или 1. (Бабушка надвое сказала — либо дождь, либо снег, либо будет, либо нет.)
45. Листинг программы все стерпит. (Бумага все стерпит.)
46. Ошибку видно, а причина не устранена. (Видит око, да зуб неймет.)
47. Каждый участник разработки программы должен работать над своей частью задачи. (Всяк сверчок знай свой шесток.)
48. Говорят, что в заголовке оператора цикла с параметром можно использовать условие, а в условии — оператор цикла. (Говорят, что кур доят, а коровы яйца несут.)
49. Если бы программист знал, где сделает ошибку, — думал бы над этим более внимательно. (Кабы знать, где упасть, так соломки б подостлал.)
50. Надо чередовать разработку программ и отдых. (Делу — время, потехе — час.)
51. Похвала приятна и начинающему программисту. (Доброе слово и кошке приятно.)
52. Программу комментариями не испортишь. (Кашу маслом не испортишь.)

4,7(99 оценок)

Ответ:

GoodSmileEweryDay

11.07.2021

// PascalABC.NET 3.2, сборка 1401 от 14.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure SumKolEven(a:array[,] of integer; var s,k:integer);
begin
var p:=a.Rows.SelectMany(x->x).Where(x->x.IsEven);
s:=p.Sum; k:=p.Count
end;

procedure MaxCoord(a:array[,] of integer; var imax,jmax:integer);
begin
(imax,jmax):=(0,0);
for var i:=0 to a.RowCount-1 do
    for var j:=0 to a.ColCount-1 do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j)
end;

procedure ZeroEven(a:array[,] of integer);
begin
for var i:=0 to a.RowCount-1 do
    for var j:=0 to a.ColCount-1 do
      if a[i,j].IsEven then a[i,j]:=0
end;

procedure MaxSumRow(a:array[,] of integer; var irow:integer);
begin
irow:=a.Rows.Select(x->x.Sum).ToArray.IndexMax;
end;

begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var sum,kol:integer;
SumKolEven(a,sum,kol); Writeln('S=',sum,', k=',kol);
var im,jm:integer;
MaxCoord(a,im,jm); Writeln('Координаты максимума [',im+1,',',jm+1,']');
var b:=Copy(a);
ZeroEven(b);
b.Println(4); Writeln(4*b.ColCount*'-');
MaxSumRow(a,im); Writeln('Максимальная сумма у строки ',im+1)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 8
*** Исходный массив [5,8] ***
23 94 26 40 -88 -29 88 -46
-98 64 -78 93 17 36 66 56
-52 -16 -7 -33 -63 -95 40 96
10 -30 79 -75 -47 83 30 -70
-37 -50 -80 18 -7 -43 68 -68

S=56, k=25
Координаты максимума [3,8]
23   0   0   0   0 -29   0   0
   0   0   0 93 17   0   0   0
   0   0 -7 -33 -63 -95   0   0
   0   0 79 -75 -47 83   0   0
-37   0   0   0 -7 -43   0   0

Максимальная сумма у строки 2

4,4(96 оценок)

Это интересно:

Здоровье

04.01.2023

Контроль гнева: как управлять своими эмоциями...

Кулинария-и-гостеприимство

02.02.2020

Как сделать красивые и вкусные французские макароны с миндалем...

Кулинария-и-гостеприимство

23.06.2020

Как заварить Кунг фу чай - лучший способ насладиться вкусом восточного чая...

Дом-и-сад