Предмет: Информатика,
автор: maxkurup0ciwc
Написать программу в PascalABC:
Определить есть ли среди чисел х, у, z, хотя бы одно отрицательное, если среди них есть отрицательные то посчитать их кол-во
HappyCoder:
Количество отрицательных из 3?
да
Ответы
Автор ответа:
1
Ответ:
begin
var count := 0;
var num := 0;
repeat
var a := ReadInteger;
Inc(num);
if a < 0 then
Inc(count);
until num = 3;
Println('Количество отрицательных: ', count);
end.
Program Chislo;
var x, y, z: integer;
begin
readln(x,y,z);
if (x<0) or (y<0) or (z<0) then writeln(' Есть отрицательные числа ');
if (x>0) and (y>0) and (z>0) then writeln(' Нет отрицательных чисел ');
end. Есть эта программа, чтобы вычислять есть ли там отрицат. числа или нет, надо ее изменить так, чтобы подсчитывало кол-во отрицательных
var x, y, z: integer;
begin
readln(x,y,z);
if (x<0) or (y<0) or (z<0) then writeln(' Есть отрицательные числа ');
if (x>0) and (y>0) and (z>0) then writeln(' Нет отрицательных чисел ');
end. Есть эта программа, чтобы вычислять есть ли там отрицат. числа или нет, надо ее изменить так, чтобы подсчитывало кол-во отрицательных
Боже)
согласен
program Chislo;
var
x, y, z, i: integer;
begin
readln(x, y, z);
if x < 0 then
Inc(i);
if y < 0 then
Inc(i);
if z < 0 then
Inc(i);
Write('Количество отрицательных: ', i);
end.
var
x, y, z, i: integer;
begin
readln(x, y, z);
if x < 0 then
Inc(i);
if y < 0 then
Inc(i);
if z < 0 then
Inc(i);
Write('Количество отрицательных: ', i);
end.
Похожие вопросы
Предмет: Английский язык,
автор: akyla2202
Предмет: Английский язык,
автор: ChokoCupcake
Предмет: Английский язык,
автор: Кольчуга
Предмет: Алгебра,
автор: Аноним
Предмет: Химия,
автор: Илона013