Задать вопрос
17 июня, 14:53

Решить задачи.

1. Дана площадь квадрата. Определить и вывести на экран сторону квадрата и длину его диагонали.

2. Определите, какое значение примут переменные после выполнения фрагмента программы:

а : = 7974;

b : = - 26+a div 100*100;

a : = (a-b) mod 10+7864;

3. Ввести три числа. Большее из B и C добавить к А, полученные значения A, В, С вывести на экран.

4. Даны числа. Если они четные, то заменить каждое нулем, если четно только одно, то увеличить его в 5 раз, вывести полученные значения числе на экран.

5. Определите, какое значение примет переменная после выполнения программы:

a : = 20;

b : = 10;

b : = b-2*a;

if a < b then c:=b-a else c:=a-2*b;

+1
Ответы (1)
  1. 17 июня, 14:59
    0
    Var a, t, s, zn, zn1:real;

    z, r, q1, q2, q3, qv1, qv2, qv3:integer;

    function kv (s:real) : real;

    begina : = sqrt (s) ; kv : = a;

    end;

    procedure d (r:integer; var m, m1:real) ;

    var h:integer; begin

    h : = - 26+r div 100*100;

    r : = (r-h) mod 10+7864;

    m: = r; m1 : = h;

    end;

    procedure rt (v1, v2, v3:integer; var n1, n2, n3:integer) ;

    beginif v2 > v3 then

    v1: = v1 + v2else

    v1 : = v1 + v3;

    n1:=v1; n2: = v2; n3:=v3;

    end;

    procedure rt2 (v1, v2:integer; var n1, n2:integer) ;

    beginif (v1 mod 2 = 0) and (v2 mod 2 = 0) then

    begin n1: = 0; n2: = 0; end

    else if (v1 mod 2 = 0) then

    v1 : = v1 * 5

    else if (v2 mod 2 = 0) then

    v2: = v2 * 5;

    n1:=v1; n2: = v2;

    end;

    function rr (a, b:integer) : real;

    var c: integer;

    begin

    b : = b-2*a;

    if a < b then rr:=b-a else rr:=a-2*b;

    end;

    beginr : = 7974;

    writeln ('Введите площадь квадрата') ;

    readln (s) ;

    t: = kv (s) ;

    writeln ('Сторона квадрата равна = ', t) ;

    d (r, zn, zn1) ;

    writeln ('переменные a, b значение примут ', zn: 5, zn1: 5) ;

    writeln ('Ввести три числа A, B, C') ;

    readln (q1, q2, q3) ; rt (q1, q2, q3, qv1, qv2, qv3) ;

    writeln ('A, B, C получили значения', qv1:4, qv2:4, qv3:4) ;

    writeln ('Ввести числа x, y') ;

    readln (q1, q2) ;

    rt2 (q1, q2, qv1, qv2) ;

    writeln ('x, y получили значения', qv1:4, qv2:4) ;

    writeln ('Определяем, какое значение примет переменная c') ;

    q1:=20; q2:=10;

    s: = rr (q1, q2) ;

    writeln ('Переменная c примет значение: ', s) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Решить задачи. 1. Дана площадь квадрата. Определить и вывести на экран сторону квадрата и длину его диагонали. 2. Определите, какое ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы