1. Информатика
  2. Составить программу (Паскаль):

Составить программу (Паскаль): с экрана вводим два значения и сравниваем с константой = 18

1. оба числа больше или равно 18

2. оба числа меньше 18

3. только одно число больше или равно 18

nastya2737 nastya2737    2   12.05.2020 17:08    3

Ответы
prohorowanyura prohorowanyura  24.08.2020 15:41

var a,b: real;

begin

 readln(a,b);

 if (a>=18) and (b>=18) then writeln('1') else if  (a<18) and (b<18) then writeln('2') else if (a>=18) or (b>=18) then writeln('3');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
anncopper anncopper  29.07.2019 01:40
Записать какой вид примет формула=$а3+в$2-$b$1,находящаяся в ячейке с1 при копировании ее в ячейку d2? можно подробно как делать...
vadimfroloww vadimfroloww  29.07.2019 01:40
Определите кто из подозреваемых участвовал в преступлении , если известно : 1.если иванов не участвовал или петров участвовал , то сидоров поучаствовал 2.если иванов не...
serikon1 serikon1  29.07.2019 01:40
Что выведет следующая программа? объясните результат. program test; var a,b: integer; procedure p (var x: integer; y: integer); begin x: =x+1; y: =x+y; end; begin a: =1;...
kolasalnov5 kolasalnov5  29.07.2019 01:40
Решить примеры в двоичной системе счисления 101101+10111= 1010010-10011=...
koblovalv koblovalv  29.07.2019 01:40
Рассмотрим объявления: var k, m, n: integer; a: real; b, c: char; procedure p(i: integer; var j: integer; x: real); function f( x, y: char; z: integer): real; какие из следующих...
АндрейДемаков АндрейДемаков  29.07.2019 01:40
1. какие из следующих заголовков подпрограмм верны? ответ обоснуйте.a) procedure p1(x, z: real): integer; b) function f1 (a, b, c: real): char; c) function f2 ( m: integer);...
Emilsekas Emilsekas  29.07.2019 01:40
Напишите функцию, которая переводит м в аршины. (1 аршин = 0,7112 м)...
poshel0naher poshel0naher  29.07.2019 01:40
Что необходимо для создания веб сайта? по шаговой ми кратко...
sabinakalisheva sabinakalisheva  29.07.2019 01:40
Определите вид алгоритма, составленного для решения уравнения ах = в...
danilyakimov1 danilyakimov1  29.07.2019 01:40
Как вычислить путь зная скорость и время...

Популярные вопросы