Задача 1 Урок 9

Primary tabs

Submitted by mr.mz on Mon, 09/27/2021 - 12:46

Forums:

http://fkn.ktu10.com/?q=node/8539

var a, b :integer;
  begin
    writeln('Vvedite A : ');
    readln(a);
    writeln('Vvedite B : ');
    readln(b);
    if(a>b) then
    writeln(12);
    readln();
  end.

//Сравните два числа, если первое больше второго, то выведите на экран "12".
//(здесь нужно использовать неполную форму условного оператора)

  • Log in to post comments
  • 1546 reads

mr.mz

Mon, 09/27/2021 - 12:54

http://fkn.ktu10.com/?q=node/8539

var a, b :integer;
  begin
    writeln('Vvedite A : ');
    readln(a);
    writeln('Vvedite B : ');
    readln(b);
    if(a>b) then
    writeln(12)
    else
    writeln(888);
    readln();
  end.

//Сравните два числа, если первое больше второго,
//то выведите на экран "12", а если нет, то выведите на экран "888".

mr.mz

Mon, 09/27/2021 - 13:04

http://fkn.ktu10.com/?q=node/8539

var a, b, c :integer;
  begin
    writeln('Vvedite A : ');
    readln(a);
    writeln('Vvedite B : ');
    readln(b);
    writeln('Vvedite C : ');
    readln(c);
    if((a<b)AND(a>c)) then
    writeln('Da')
    else if((a>b)AND(a<c)) then
    writeln('Daa')
    else
    writeln('HeT');
    readln();
  end.

{Даны три целых числа: A, B, C. Проверить истинность высказывания:
«Число A находится между числами B и C» -- выведите "да", если истинно
и "нет" если ложно.}

mr.mz

Mon, 09/27/2021 - 15:19

http://fkn.ktu10.com/?q=node/8539

var a, b, c :integer;
  begin
    a:=19;
    b:=20;
    c:=8;
    if((a>17)AND(b>17)ANd(c>7)) then
    writeln('Da')
    else
    writeln('HeT');
    readln();
  end.

{Даны три целых числа: A, B, C.
Проверить истинность высказывания: « Число A и число B больше 17, а C > 7».
-- выведите "да", если истинно и "нет" если ложно. }