Категория
Информатика, опубликовано 07.06.2020 01:15

Составьте блок-схему.

program a3;
var: x, y, z:real;
begin
writeln('Введите три числа')
readln(x, y, z);
if(x<=y)and(y<=z)
then
begin
x:=2*z;
y:=2*y;
z:=2*z;
end
else
begin
x:=abs(x);
y:=abs(y);
z:=abs(z)
end
writeln(x,", y,",z)
end

Ответы

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

0

Объяснение:

Я делал такой же, ответ будет равен 0, не за что

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

Я уже делала почти такой же пример! но у меня получилось ответ вроде бы равен нулю ну как то так

Ответ
Ответ оставил: Гость
Program Ok;
var A:array[1..10] of real;
sum:real;i,n:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
read(A[i]);
end;
for i:=10 downto 1 do
begin
if(A[i]>0) then
n:=i;
end;
for i:=1 to 9 do
begin
if (A[n] = A[i+1]) then
sum:=sum+1;
end;
writeln(sum);
end.
Ответ
Ответ оставил: Гость
A+A*B+A*C= A+AB+A*C=A+AB+AC=AB+AC+A
Ответ
Ответ оставил: Гость
Покажи  задание  плиииииииз


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

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 3 на вопрос по информатике: Составьте блок-схему. program a3; var: x, y, z:real; begin writeln('Введите три числа') readln(x, y, z); if(x<=y)and(y<=z) then begin x:=2*z; y:=2*y; z:=2*z; end else begin x:=abs(x); y:=abs(y); z:=abs(z) end writeln(x,", y,",z) end... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube