Срочно!!! Как сделать 7 вариант в Pascal?

Знания

Информатика

1 ответ:

kifflom [539]4 года назад

0 0

Ну вы хотябы Сделайте фотографию чтобы посмотреть что там)

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

Плиз, кто шарит в паскале4 задачу и 5

Даниил235 [599]

5. если я правильно понял

i - это просто переменная типа integer

a - массив

r - размер массива

for i:=1 to r do

begin

if a[i] > c then

begin

c := a[i];

end;

результат будет в переменной c!

0 0

4 года назад

Написать программу, на языке Си, выводящую все чётные числа на отрезке от A до B. В этой задаче нельзя использовать инструкцию i

Лидия Верина

#include <stdio.h>
#include <conio.h>
int main (int argc, char *argv[])
{
   int A, B;
    printf("A = ");scanf("\%d", &A);
   printf("B = ");scanf("\%d", &B);
   A = A + A \% 2;
   B = B - B \% 2;
   for (A = A; A<=B; A = A+2)
       printf("\%d ", A);
   getch();
}

0 0

4 года назад

Вычислите, чему равняется значение переменной С на выходе из линейного алгоритма: А = 2 В = 3 А = А * В В = А + В С = 2 * В / А

Zhani1303 [45]

9

код на vbscript

Sub Zadanie18007865()
    A = 2
    B = 3
    A = A * B
    B = A + B
    C = 2 * B / A * 3
    MsgBox c
End Sub

Call Zadanie18007865()

0 0

4 года назад

Составить программу,которая вычисляет гипотенузу прямоугольного треугольника по известным катетам(т.Пифагора)Помогите,пожалуйста

Александр Коротков А

Для паскаля:
uses CRT;

var a, b: integer;
begin

write (' Введите длину первого катета ');
read (a);

write (' Введите длину второго катета ');
read (b);

write (' Гипотенуза =');
write (sqr(a)+sqr(b));
end.

0 0

4 года назад

Укажи результат редоктикования

adsddasdasd

1) Маша
2) Молодец
3) Молоток
4ое у меня не прогружается

0 0

4 года назад