4 года назад

1. Дана сторона квадрата a. Найти его периметр P и площадь S.Справка: P = 4∙a, S = a2.

1 ответ:

Ник564 года назад

0 0

Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.
----------
var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.

Читайте также

Приветствие участникам олимпиады записано с помощью всех символов марсианского алфавита: ТИ!! Р! ТРИ! сколько информации оно нес

serverx

В 1 байте 8 бит
символов 13
13*8=104 байта

0 0

4 года назад

Даны два массива, заполненные каждый десятью случайными целыми числами, каждое из которых от 15 до 40 включительно. Третий масси

Ания [4]

И в чем вопрос? сделай 2 массива. Заполни с помощью randomize укажи пределы. Далее в зависимости от среды разработки посмотри есть ли возможность найти разность с помощью функции. если нет то поэлементо вычитай из массива а элемент массива б и записывай в массив с

0 0

4 года назад

Почему выходит 50?s = 0for n in range(3,8): s = s +2*nprint (s)

Нетруненко

1) s=0+3*2=6
2)s=6+4*2=14
3)s=14+5*224
4)s=24+6*2=36
5)s=36+7*2=50

0 0

1 год назад

Найдите сумму элементов трех одномерных массивов А(10),В(20),С(30).Вычислите суммы элементов одномерного массива ,оформить в вид

Елена0409

Притянуто "за уши", но такое уж задание несуразное. Видимо, для старых версий языка.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

function Summa(a:array of integer):=a.Sum;

begin
var a:=ArrRandom(10,-99,99); a.Println; Writeln;
var b:=ArrRandom(20,-99,99); b.Println; Writeln;
var c:=ArrRandom(30,-99,99); c.Println; Writeln;
Writeln('S=',Summa(a)+Summa(b)+Summa(c))
end.

Пример
53 34 13 64 79 28 -98 -43 -19 23

96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44

-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89

S=244

0 0

4 года назад

Написать программу , которая вводит с клавиатуры число от 0 до 999999(использовать переменные типа longint) и выдает на экран ди

Марина235 [7]

Var
    n: longint;
    i, sum: integer;

begin
    Readln(n);
    Sum := 0;

    while n > 0 do
    begin
        Sum := sum + (n mod 10);
        n := n div 10;
    end;
    Writeln(sum);
end.

0 0

4 года назад