Категория
Информатика, опубликовано 16.10.2019 10:18

Составить программу вычисляющую произведение двух чисел введённых с клавиатуры и определяющую , является ли число положительным или отрицательным.

Ответы

Ответ
Ответ оставил: Гость

ответ:

program multi;

var

  a, b: real;

begin

  write ('введите 2 числа: ');

  readln (a, b);

  if a * b > 0 then

    writeln ('произведение положительно')

  else if a * b < 0 then

    writeln ('произведение отрицательно')

  else

    writeln ('произведение равно 0');

  readln;

end.

Ответ
Ответ оставил: Гость
Var A:array [1..10] of integer;
b,min,max,i:integer;
c:real;
begin
b:=0;
c:=0;
for i:=1 to 10 do readln(A[i]);
for i:=1 to 10 do b:=b+A[i];
c:=b/10;
min:=A[1];
max:=A[1];
for i:=1 to 10 do 
if A[i]<min then min:=A[i];
for i:=1 to 10 do 
if A[i]>max then max:=A[i];
writeln(c);
writeln(min);
writeln(max);
end.             
Ответ
Ответ оставил: Гость
Думаю 1), 2), 3) 
а что значит відправити? 
Ответ
Ответ оставил: Гость
Нужно составить вопросы? И на какую тему?


Другие вопросы по информатике

✅ Ответов: 1 на вопрос по информатике: Составить программу вычисляющую произведение двух чисел введённых с клавиатуры и определяющую , является ли число положительным или отрицательным.... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube