logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ИльяХлус
ИльяХлус
17.01.2022 16:32 •  Информатика

Дан прямоугольник abcd. известны длину его сторон и известна его площадь. необходимо найти периметр. (информатика)

👇
Увидеть ответ
Ответ:
ayunatushentso
ayunatushentso
17.01.2022
Предполагается что извесна только одна сторона

var
    a, s: real;

begin
    readln(a, s);
    writeln('P=', 2 * (a + s / a));
end.
4,7(77 оценок)
Открыть все ответы
Ответ:
yra221111
yra221111
17.01.2022
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  var a:=MatrixRandom(n,n,10,99);
  var s:=0;
  var k:=0;
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Print(a[i,j]);
    Writeln;
    if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end;
    end;
  if k>0 then Writeln('S=',s/k:0:2)
  else Writeln('На главной диагонали нет четных элементов')
end.

Тестовое решение
n= 8
63 13 33 90 25 21 87 91
88 88 48 13 30 59 81 27
73 23 76 77 52 19 33 97
53 87 13 74 17 35 61 70
77 96 51 61 82 33 63 22
39 88 84 54 88 73 74 69
76 26 69 14 45 80 70 54
80 36 47 38 18 22 84 62
S=75.33
4,5(90 оценок)
Ответ:
JukovaEleonora
JukovaEleonora
17.01.2022
Ну, в общем, лови решение.

{ FreePascal 2.6.4}
program test;
uses
    crt;
var
    a, b, c, d  : integer;
    f : longint;

procedure swap (var x : integer; var y : integer);
var z : integer;
begin
    z := x;
    x := y;
    y := z;
end;

function nod (m, n : integer) : integer;
begin
    while m<>n do begin
        if m>n
        then
            m:=m-n
        else
            n:=n-m;
    end;
    nod := m;
end;

function max (a,b : integer) : integer;
begin
    if a>b
    then max := a
    else max := b;
end;

function min (x, y, z : integer) : integer;
var m : integer;
begin
    m := x;
    if y<m then m := y;
    if z<m then m := z;
    min := m;
end;

function mypow (a, b : integer) : integer;
var e, f : integer;
begin
    f := 1;
    for e:=1 to b do f := f*a;
    mypow := f;
end;

function fact(a : integer) : longint;
var
    i : integer;
    res : longint;
begin
    res := 1;
    for i := 1 to a do res := res*i;
    fact := res;
end;

begin
    clrscr;
    writeln('Test of function SWAP');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    swap(a, b);
    writeln('A=', a, ', B=', b);
    writeln;

    writeln('Test of function NOD');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := nod(a, b);
    writeln('NOD(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MAX');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := max(a, b);
    writeln('MAX(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MIN');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    write('Input C: ');
    readln(c);
    d := min(a, b, c);
    writeln('MIN(', a, ',', b, ',', c, ')=', d);
    writeln;

    writeln('Test of function POW');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := mypow(a, b);
    writeln('POW(', a, ',', b, ')=', c);
    writeln;

    writeln ('Test of function FACT (not large than 12!)');
    write('Input A: ');
    readln(a);
    f := fact(a);
    writeln(a, '!=', f);
    writeln;
    readkey;

end.
4,6(4 оценок)
Это интересно:
К
Как использовать контроллер Xbox 360 вместе с Windows...
З
Здоровье
08.08.2020
8 советов по подготовке к приему к стоматологу: как не бояться и что вам нужно знать...
Ф
Как выбрать и купить восстановленный деревянный стол...
К
Как правильно пинговать IP адрес: простой гайд для начинающих...
О
Как написать сочинение Как я провел лето : советы и рекомендации...
Ф
Как создать маркетинговый календарь: советы для бизнеса...
К
Как готовить подпаленную кукурузу на гриле: простой рецепт и полезные советы...
К
Как отправить видео: подробный гайд...
П
Как купать крысу: инструкция для любящих хозяев...
К
Отварная кукуруза в початках: легко и быстро...
Новые ответы от MOGZ: Информатика
Хажижа
Хажижа
14.05.2023
По представленной схеме постройте логическое выражение и вычислите его значение. При записи выражения используйте следующие обозначения: инверсия - не конънкция...
ilinet
ilinet
16.06.2022
Определите сколько бит информации понадобится для кодирования черно-белого изображения размером 20 н 32 в двухцветной кодировке?...
MuBuHa
MuBuHa
30.10.2021
Что такое относительная ссылка? Приведите пример Что такое абсолютная ссылка? Приведите пример С какого символа начинается формула в таблице?...
lerashherbakov
lerashherbakov
16.02.2021
Python З заданого числа відняли суму його цифр. З результату знову відняли суму його цифр і т. Д. Через скільки таких дій вийде нуль?...
ислам406
ислам406
23.02.2022
Потянет ноутбук Ноутбук LENOVO IdeaPad 3 игры какие сколько ФПС и пре какой графики Radeon RX Vega 3 и AMD 3020e 4 памяти ОЗУ​...
namik2404
namik2404
03.07.2021
Шо робити якщо порнхаб лагає​...
idkcjdosjn
idkcjdosjn
22.12.2021
Какие из указанных, неявных преобразований возможны в программах на языке Паскаль? Выберите несколько из 4 вариантов ответа: * 1) Из byte в real 2) Из byte в integer...
dendiololosh
dendiololosh
08.01.2023
Алина отправилась в магазин за покупками. Девушка купила пачку молока за 31 руб., две упаковки замороженных овощей, заплатив за каждую 104,79 руб. Три пачки 2 %...
Cerd
Cerd
09.02.2023
Создание алгоритмов, и сделать блок-схема...
Bibi123456
Bibi123456
18.06.2021
Дан целочисленный массив и число к. Вывести индекс первого элемента, большего к....

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ