Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
end.

Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
end.

Третье задание не понял.

0 0

3 года назад

Нужно написать блок схему для следуйщей программы:Program Example1;Const n=6;m=4;Var A:array[1..n,1..m] of integer; i,j,k:byte;B

Serg1705

См. во вложении

______________

0 0

1 год назад

Сформировать массив А из 30 случайных чисел в интервале от -50 до 50, найти максимальный элемент массива и увеличить все элемент

sherlok 333

PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.

Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50

0 0

1 год назад

Мы эту тему проходим бегло, а книги про Pascal у меня нет, так что помогите. Записать в виде обычной математической формулы 1) y

Таня2407

1) y:=2*sin(x)*sqrt(x+sqrt(abs(x)))
2sinx+корень(х+корень(|x|))
2) y:=sqrt(sin(x)+sin(sqrt(x)))
корень(sinx+sin(кореньх))
3) y:=sqrt(abs(x-1)+sqrt(sin(x)))
корень(|x-1|+кореньsinx)

0 0

3 года назад

Прочитать ещё 2 ответа