Предмет: Информатика,
автор: makliki4
Нужна помощь с информатикой.
Приложения:
Ответы
Автор ответа:
0
1.a)При А=0, В=0 выражение ложно.
Выполним действия по порядку:
1) B=0 истина
2) Not(истина) =ложь
3) (А=0) истина
4) истина and ложь =ложь
5) not(a=0) =ложь
6) ложь and истина = ложь
7) ложь or ложь = ложь
Б)При А=0, В=1 выражение истинно.
Так дальше 2, на 100% не уверен в правильности, так как это было в 8 классе.
Program prim_2;
Var a,b,c:real;
Begin
Write('введите три числа');
Readln(a,b,c);
If (a>b) and (a>c) then writeln (' max= ',a:0:2);
If (b>a) and (b>c) then writeln (' max= ',b:0:2);
If (c>a) and (c>b) then writeln (' max= ',c:0:2);
Readln
End.
И наконец то 3. Я не могу вспомнить подходящие команды, ошибки одни выдает. Надеюсь я тебе чем-то помог)))
Выполним действия по порядку:
1) B=0 истина
2) Not(истина) =ложь
3) (А=0) истина
4) истина and ложь =ложь
5) not(a=0) =ложь
6) ложь and истина = ложь
7) ложь or ложь = ложь
Б)При А=0, В=1 выражение истинно.
Так дальше 2, на 100% не уверен в правильности, так как это было в 8 классе.
Program prim_2;
Var a,b,c:real;
Begin
Write('введите три числа');
Readln(a,b,c);
If (a>b) and (a>c) then writeln (' max= ',a:0:2);
If (b>a) and (b>c) then writeln (' max= ',b:0:2);
If (c>a) and (c>b) then writeln (' max= ',c:0:2);
Readln
End.
И наконец то 3. Я не могу вспомнить подходящие команды, ошибки одни выдает. Надеюсь я тебе чем-то помог)))
Похожие вопросы
Предмет: История,
автор: guilnur01
Предмет: Литература,
автор: alaguzovalun
Предмет: Қазақ тiлi,
автор: aldiarkuralbetov
Предмет: Математика,
автор: ilyaerofeev02