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

А) «розумніі» годинник 6) Книга
в) смарт-окуляри
г) фітнес-трекори
9. В яких операторах правильно організовано проденя діllоного значено з клавіатури?
а) а = int(input (aw))
б) a float (input ('
an'))
m) alont (input ())
г) аѕ input (а?")
10. Установіть відповідність між операторами та результатами їх виконання,
А) а 2362 1) 3,5
Б) at 24V/з 2) 3
В) а = 7/2 3) 8
Г) а = 1/2
11. Визначте, по буде виведено у консоль в результаті виконання операторів:
а 57
sa a/0a610
print(s)
12, що буде виведено у консоль в результаті виконанні операторів?
хару"
y="thon"
г=х+у;
print(r)
13, Що буде виведено у консоль в результаті виконанні операторів?
s='інформатика
s1=s[2:7]
print(sl)
форма романтика інфо рама
14. Що буде виведено у консоль в результаті виконання операторів?
s='рекомендація"
s1=s[3]+s[9:11]+s[6]+s[2]+s[8]
print(sl)​

👇
Открыть все ответы
Ответ:
Valeriya2576
Valeriya2576
30.09.2021
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var m:=Readinteger('Что ищем?');
  var k:=a.FindAll(x->x=m).Count;
  Writeln('Найдено таких элементов- ',k);
  if k>0 then Writeln('Номер первого такого элемента- ',
    a.FindIndex(x->x=m)+1)
end.

Пример
n= 17
-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9
Что ищем? -9
Найдено таких элементов- 2
Номер первого такого элемента- 3
4,4(52 оценок)
Ответ:
alinaislam371
alinaislam371
30.09.2021
Там где символы не понятные это разделители задач, 3 из 4
program task;
const n=15;
var a:array[1..n] of integer;
i,s,j,first,max: integer;

begin
óñëîâèå À
begin
a[i]:=0+random(15);
write(a[i]:4);
if(i mod 2=0) then
s:=s + a[i];
end;
çàäà÷à Á
begin
a[i]:=0+random(15);
write(a[i]:4);
end;
writeln();
max:=1;
for i:=1 to n do
if a[i]>a[max] then max:=i;
first:=a[1];
a[1]:=a[max];
a[max]:=first;
writeln('Âåêòîð:');
for i:=1 to n do
çà÷à Â
for i:= 1 to 15 do begin
a[i]:= random(20);
write(a[i],' ');
if a[i] > 0 then
end;
writeln;
writeln;
for i:= 1 to 14 do
for j:= i+1 to 15 do
if a[i] < a[j] then begin
max:= a[i];
a[i]:= a[j];
a[j]:= max;
end;
for i:= 1 to 15 do begin
write(a[i],' ');
end;

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