Задать вопрос
1 декабря, 21:09

С клавиатуры вводится число а, в, и целое число х. Если х=0 а, в-real найти разность а-в, 1-а*в, 2-х:integer a:в, в противном случае найти сумму.

+2
Ответы (1)
  1. 1 декабря, 22:07
    0
    Program Numbers;

    uses crt;

    var x:integer;

    a, b:real;

    if (x=0) and (frac (a) >0) and (frac (b) >0) then

    writeln ("Result: ", a-b, ' ', 1-a*b,' ', 2-a/b)

    else

    writeln ("Summa ", a+b) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «С клавиатуры вводится число а, в, и целое число х. Если х=0 а, в-real найти разность а-в, 1-а*в, 2-х:integer a:в, в противном случае найти ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;
Ответы (1)
Определить значение переменной у после выполнения следующих фрагментов программы: a) Var у : real; i : integer; у : = 1; i : = 5; while i> 2 do i: = i - 1; y:=y + 1 * i; b) Var у : real; i : integer; у : = 1; i : = 2; repeat i: = 2 * i;
Ответы (1)
Program2. pas (29) : Нельзя преобразовать тип function (x: real; eps: real) : real к real var a, i, s, r, j, t, x, eps: real; function v (x, eps: real) : real; begin i : = 1; s : = 0; a : = 1; t : = 1; r : = 1;
Ответы (1)
Рассмотрим объявления: 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; Какие из следующих вызовов верны? Ответ обоснуйте. a) F ('a', '2.
Ответы (1)
Напишите задачи в Паскале задача1 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ... 1000000] Вывести на экран их произведение.} задача2 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ...
Ответы (2)