В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
proovdnik
proovdnik
05.06.2021 17:34 •  Информатика

^;
1 часть
1) a+(a*b)
2) a+b(черта над b)➡a (черта над a)
3) (b*b)+(ā*a)
4)a➡b➡(ā*b)
5)(a+a)⬅➡(b (черта над b) ➡a)
2часть
1) b*(a+b)
2)b*(ā⬅➡b)
3)(a➡ā)+(b (черта над b)➡b)
4)a*b (черта над b)⬅➡(a+b)
5)(b (черта над b)+b)➡(a+ā)
нужно ; ^;

Показать ответ
Ответ:
diankapivkach
diankapivkach
03.11.2022 17:42

1)

program FunctionIFfull;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4)  

 else  

     if x<=-1 then y:= sqr(x)+4*x  

     else y:=4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

2)

program FunctionIFshort;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4);

 if x<=-1 then y:= sqr(x)+4*x;

 if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

Объяснение:

1. Повна команда розгалуження має вигляд

if < логічний вираз > then <команда 1> else < команда 2 >;

2. Коротка команда розгалуження має вигляд

if <логічний вираз > then <команда 1>;

0,0(0 оценок)
Ответ:
karnastia
karnastia
18.11.2022 13:20

Вводим 200 Вывод 220

Объяснение:

var s, n, i: integer;

begin

for i:=200 to 250 do   //Создаём цикл, который будет прогонять

begin                           // значения S от 200 до 250

   s:=i;                          // логичнее начинать i c 200 т.к. while работает

   n := 100;                 // при условии, что s- 100 >= 100

   while s - n >= 100 do

   begin

        s := s + 20;

        n := n + 40;

   end;

writeln(i, ' ',s)     // вывод всех значений от 200 до 250

end;                   // выбираем нужный

end.

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота