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

Расставьте в верном порядке. 1. записать условие на языке логики; 2. выделить простые высказывания и обозначить их латинскими буквами; 3. внимательно изучить условие; 4. составить конечную формулу, для этого объединить логическим умножением формулы каждого утверждения, приравнять произведение единице; 5. формулу, проанализировать полученный результат или составить таблицу истинности, найти по таблице значения переменных, для которых f=1, проанализировать результаты. • 4−2−3−1−5 • 1−2−3−4−5 • 3−2−1−4−5 • нет верного ответа

👇
Ответ:
GG01155
GG01155
10.12.2022
Правильный ответ: 3-2-1-4-5
4,7(61 оценок)
Открыть все ответы
Ответ:
zepoo
zepoo
10.12.2022
1)
const n=100;
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(471)-400;
 write(a[i]:5);
 end;
writeln;
write('k = ');
readln(k);
for i:=1 to n do
 if a[i]>k then a[i]:=k;
writeln('Измененный массив:');
for i:=1 to n do write(a[i]:5);
writeln;
end.

Пример (для n=10):
Массив A:
 -294 -223 -187   51  -79 -288 -367   38   21  -25
k = Измененный массив:
 -294 -223 -187    5  -79 -288 -367    5    5  -25

2)
const n=50;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(111)-100;
 write(a[i]:5);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>0 then k:=k+1;
writeln('k = ',k);
end.

Пример (для n=10):
Массив A:
  -92  -93  -84  -77   -9   -3    8  -68  -25  -89
k = 1
4,4(3 оценок)
Ответ:
LunnayaLiliya
LunnayaLiliya
10.12.2022
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var t:=ReadlnString(':').MatchValue('\(.*\)');
  Writeln(t[2:t.Length])
end.

Пример
: Напечатаем только то (что в скобках) и не более!
что в скобках

Пояснения.
1) Принимаем с клавиатуры текстовую строку, выделяем в ней пару круглых скобок вместе с содержимым и помещаем полученную подстроку в t. В соответствии с условием считаем без проверки, что такая пара скобок есть всегда.
2) Выделяем из содержимого t символы со второго по предпоследний (т.е. скобки не включаем) и выводим результат на экран.
4,6(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ