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

Постройте таблицу истинности

👇
Ответ:
nikputen
nikputen
23.06.2022

Таблица дана во вложении


Постройте таблицу истинности
4,8(73 оценок)
Открыть все ответы
Ответ:
lis316721
lis316721
23.06.2022
{
Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите:
program gg;
var
  a, b, c, d, e, max: integer;

begin
  writeLn('введите пять целых чисел');
  read(a, b, c, d, e);
  if (a >= b) and (a >= c) and (a >= d) and (a >= e) then
    max := a
  else
  if (b >= a) and (b >= c) and (b >= d) and (b >= e) then
    max := b
  else
  if (c >= b) and (c >= a) and (c >= d) and (c >= e) then
    max := c
  else
  if (d >= b) and (d >= c) and (d >= a) and (d >= e) then
    max := a
  else
    max := e;
  writeln('наибольшее число ', max);
end.

Форматирование кода:
   if () then
        begin
            оператор1;
            оператор2;
        end
   else
        begin
            оператор1;
            оператор2;
        end;
}


Включите мозг и напишите нормальный код
program gg;

var
  a, b, c, d, e, max: integer;

begin
  writeLn('введите пять целых чисел');
  read(a, b, c, d, e);
  max:=a;
  if b > max then max:=b;
  if c > max then max:=c;
  if d > max then max:=d;
  if e > max then max:=e;
  Writeln(max);
end.

or
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b,c):=readinteger3;
var (d,e):= readinteger2;
Writeln(max(a,max(b,max(c,max(d,e;
end.
4,6(1 оценок)
Ответ:
kymbatbadagulovа
kymbatbadagulovа
23.06.2022
Спорт-денсаулық кепілі

Әрбір адам спортпен айналысу керек. Өйткені спортпен үнемі айналысқан адамның дені сау, көңіл-күйі көтеріңкі болады және денсаулығы жақсарады. Спорттық ойындардың түрлері өте көп: футбол, баскетбол, волейбол, теннис, хоккей, шаңғы тебу, суда жүзу, т.б. Спорттың адам денсаулығына қаншалықты пайдалы екенін, оның адам өмірін ұзартатынын білеміз. Сол үшін балаларды ерте жастан спортқа деген қызығушылығын ояту үшін мектеп бағдарламасына да енгізілген.

Біздің отбасымызда да анам мен әкем бізді үнемі спортпен айналысуымызды қалайды. Күнде тәңертең ерте тұрып, «Балапан» телеарнасымен бірге түрлі жаттығулар жасаймын. Аптасына үш рет «каратэ» спорттық секциясына барамын.

Өзіммен қатар құрдастарымды спортпен айналысуға шақырамын. Денсаулық-зор байлық.Денсаулық мықты болу үшін адамға мынадай төрт шартты бұлжытпай орындау керек. Олар: дене еңбегі, тамақ ішу, уақытты дұрыс пайдалану, шынығу және дем ала білу.
4,4(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ