Пожалуйста помогите написать программу на языке Паскаль

Знания

Информатика

1 ответ:

Галина Сагулина [21]4 года назад

0 0

Вот держите.

Решение в прикрепе.

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

Помогите пожалуйста)Кто силён в информатике,9 класс.Буду очень благодарна и 30 баллов

Чуракева

А1 - 2
а2 -3
а3 - 3,4,5
а4 - 1
а5 - 3
а6 - 4
а7 - 5
а8 - 4
а9 - 1,2,3,4,5
а11 - 10
а12 - разрядом???

0 0

4 года назад

Заполнить массив из 10 элементов случайными числами в интервале [0...10] и выполнить циклический сдвиг массива ВПРАВО. Формат вв

васильев иван [215]

Const
n = 10;

var
i, s: integer;
a: array[1..n] of integer;

begin
Writeln('Введите элементы массива через пробел');
for i := 1 to n do Read(a[i]);
s := a[n];
for i := n downto 2 do a[i] := a[i - 1];
a[1] := s;
for i := 1 to n do Write(a[i]:4);
end.

<u>Тестовое решение:</u>
Введите элементы массива через пробел
4 -5 3 10 -4 -6 8 -10 1 0
0 4 -5 3 10 -4 -6 8 -10 1

0 0

4 года назад

Какую фигуру нарисует черепашка .Считайте что в начале она смотрит вверх. а)по вперёд 40 налево 45 назад 30 направо 90 вперёд 30

acbar

А) фигура похожая на М
б) фигура похожая на песочные часы - два равносторонних треугольника с общей вершиной. Типа таких:
_
∨
Δ
в) Равносторонний треугольник типа такого: |>

0 0

4 года назад

Отдаю последние баллы! даны действительные числа A и B . Если числа не равны, то большее увеличить в пять раз, а меньшее уменьши

Данил128 [1]

BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.

0 0

4 года назад

Помогите, кисы.:* Даны числа a b c. Если а >7, то найдите сумму чисел b c, иначе найдите разность.

женечка22 [170]

program n1;

var:a,b,c,s,r:integer;

begin

if a>7 then s:=b+c else r:=b-c

end:

end.

0 0

4 года назад