Предмет: Информатика,
автор: Артем2017
Написать программу чтоб работала в Pascal
запрашивает с клавиатуры три произвольных числа и выводит на экран сообщение о том, сколь-ко из них отрицательных, положительных и нулевых.
Ответы
Автор ответа:
0
PascalABC
var x,y,z:real;
k,m,n:integer;
begin
k:=0;
m:=0;
n:=0;
writeln('Введите первое число');
readln(x);
writeln('Введите второе число');
readln(y);
writeln('Введите третье число');
readln(z);
if x>0 then k:=k+1
else if x=0 then m:=m+1
else n:=n+1;
if y>0 then k:=k+1
else if y=0 then m:=m+1
else n:=n+1;
if z>0 then k:=k+1
else if z=0 then m:=m+1
else n:=n+1;
writeln('Количеcтво положительных чисел : ',k);
writeln('Количеcтво нулевых чисел : ',m);
writeln('Количеcтво отрицательных чисел : ',n);
end.
var x,y,z:real;
k,m,n:integer;
begin
k:=0;
m:=0;
n:=0;
writeln('Введите первое число');
readln(x);
writeln('Введите второе число');
readln(y);
writeln('Введите третье число');
readln(z);
if x>0 then k:=k+1
else if x=0 then m:=m+1
else n:=n+1;
if y>0 then k:=k+1
else if y=0 then m:=m+1
else n:=n+1;
if z>0 then k:=k+1
else if z=0 then m:=m+1
else n:=n+1;
writeln('Количеcтво положительных чисел : ',k);
writeln('Количеcтво нулевых чисел : ',m);
writeln('Количеcтво отрицательных чисел : ',n);
end.
Автор ответа:
0
большое спасибо
Автор ответа:
0
program pr;
var a,b,nul,otr,pol,c:integer;
begin
write('A=');
readln(a);
write('B=');
readln(b);
write('C=');
readln(c);
if a>0 then pol:=pol+1
else if a=0 then nul:=nul+1
else otr:=otr+1;
if b>0 then pol:=pol+1
else if b=0 then nul:=nul+1
else otr:=otr+1;
if c>0 then pol:=pol+1
else if c=0 then nul:=nul+1
else otr:=otr+1;
writeln('Положительных: ',pol);
writeln('Отрицательных: ',otr);
writeln('Нулевых: ',nul);
end.
Похожие вопросы
Предмет: Математика,
автор: waterlockes
Предмет: Химия,
автор: tanu6a
Предмет: Русский язык,
автор: aliasovmarat78
Предмет: Алгебра,
автор: Яна17190995
Предмет: Алгебра,
автор: nikeq