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

, 1 Определите, что будет напечатано в результате работы следующего фрагмента программы s=1
k=0 while k < 13:
s=s+2*k k=k+4
print(s+k)
2 Запишите через запятую (без пробела) наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 264?
d = int(input ()) n = 16 s = 10 while s <= 3120:
s = s + d n = n + 8
print(n)
3 Запишите число, которое будет выведено в результате работы программы
s =15 n = 0 while 50 < s*s:
s = s - 1 n = n + 2
print(n)
4 Запишите число, которое будет выведено в результате работы программы
s=6
n = 60 while n > s:
s + 1 n = n - 2
print(n)
5 Определите, при каком введённом значении переменной s программа выведет число 8.
s=int (input ())
n = while 2*s*s <= 10*s:
s = s + 1 n = n + 2
print(n)

6 Определите, при каком наименьшем целом введённом значении переменной
d программа выведет число 192.
d = int (input ()) s = n = 0 while n < 200:
s = s + 64 n = n + d
print(s)
7 Найдите сумму максимального и минимального значений d, при которых программа выводит число 46.
d = int (input()) n = 1 while d // n > 0:
d = d - 2 n = n + 3
print(n)
8 Определите наименьшее и наибольшее введённое значение переменной s, при котором программа выведет число 56. В ответ запишите оба числа в порядке возрастания без пробелов и других разделителей.s = int (input()) n = 11 while s > -9:
s = s -4 n = n + 5
print(n)

9Определите наименьшее введённое значение переменной s, при котором программа выведет число 68.
s = int (input ()) n = 740 while s+n<1200:
s = s + 6 n = n - 4
print(n)

10Получив на вход некоторое натуральное число X, этот алгоритм печатает одно число. Сколько существует чисел Х, для которых алгоритм напечатает 64?
x = int (input ()) s = 6 * (x // 5) n = 1 while s < 300:
s = s + 35 n = n * 2
print(n)
11Определите, при каком наименьшем введенном значении переменной s программа выведет число 1961.
s= int(input ())
n = 1 while n < 1024: + 2 * n
n = n + s
print(n)

12Определите, сколько существует различных значений переменной x, при вводе которых программа выведет число 231.
x = int(input ()) n = 987 while (x+n) //1000 < 354261:
x = x - 5 n = n + 8
print( n//1000 )

👇
Открыть все ответы
Ответ:
romapotseluiko
romapotseluiko
21.05.2021

program z1;

var i,n,s:integer;

a : array [1..100] of integer;

begin

write ('Введите количество элементов n < 100: ');

readln(n);

write ('Массив: ');

for i:= 1 to n do

begin

a[i]:=random (21)-10;

write(a[i]:5)

end;

writeln;

s:=0;

for i:= 1 to n do

if a[i]<0 then s:=s+a[i];

writeln ('s = ',s)

end.

Объяснение:

Ошибки

1) нет названия программы и ; после неё

2) в описании массива 3 точки (надо 2)

3) нет кавычек для ввода текста в первом write

4) нет ; после readln (n)

5) нет : при присваивании i в цикле for i = 1

6) нет форматированного вывода или добавленного разделителя в write(a[i])

7) нет ; после первого end

8) нет ; после s:=0

9) нет кавычек для ввода текста в writeln (s = ,s)

10) нет точки после последнего  end

Условие

for i:= 1 to n do (перебираем весь массив)

if a[i]<0 then s:=s+a[i]; (если элемент меньше 0, то увеличиваем переменную s (сумму) на него)

4,5(37 оценок)
Ответ:
dashamaer2
dashamaer2
21.05.2021

function MaxElem(a: array[,] of integer; i: integer): integer;

var

 j, m: integer;

begin

 m := a[i, 0];

 for j := 1 to length(a, 1) - 1 do

   if a[i, j] > m then

     m := a[i, j];

 MaxElem := m

end;

procedure Input(var a: array[,] of integer);

var

 i, j: integer;

begin

 Writeln('вводите элементы массива');

 for i := 0 to length(a, 0) - 1 do

   for j := 0 to length(a, 1) - 1 do

     read(a[i, j]);

end;

procedure Output(var a: array of integer);

var

 i: integer;

begin

 Writeln('полученный массив');

 for i := 0 to length(a) - 1 do

   write(a[i], ' ');

end;

var

 m, n, i: integer;

 a: array[,] of integer;

 b: array of integer;

begin

 read(m, n); // ввод числа строк и столбцов

 setlength(a, m, n);

 setlength(b, m);

 Input(a);

 for i := 0 to m - 1 do

   b[i] := MaxElem(a, i);

 Output(b);

end.

Написано на Free Pascal

4,6(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ