Составьте программу по которой компьютер 10 раз запросит ввод целых чисел и в результате

Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных чисел.

Решение

С использованием оператора repeat.

Так как здесь в явном виде задано условие окончания работы, то воспользуемся оператором repeat.

Код:

program podschet_chisel_1;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
repeat
write (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if n until n=0;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2)
end.

С использованием оператора while.

Имеющееся условие окончания работы можно достаточно просто преобразовать в условие продолжения работы — работа продолжает­ся, пока n ≠ 0. И мы можем воспользоваться оператором while:

Код:

program podschet_chisel_2;

5 Ввод и вывод данных python. Команда input()

var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
while <>0 do
begin
write (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if n end;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2)
end.

Источник: infedu.ru

Составьте программу по которой компьютер 10 раз запросит ввод целых чисел и в результате

Программа может выглядеть так:

uses Crt;
const n=10;
var a, i, Sum: integer;
Sred: real;
begin
ClrScr;
Sum:=0;
i:=1;
While i begin
Write (‘a = ‘);
ReadLn(a);
Sum:=Sum+a;
i:=i+1;
end;
Sred:=Sum/n;
Writeln(‘Sred = ‘, Sred:6:2);
WriteLn;

Sum:=0;
i:=1;
repeat
Write (‘a = ‘);
ReadLn(a);
Sum:=Sum+a;
i:=i+1;
until i>n;
Sred:=Sum/n;
Writeln(‘Sred = ‘, Sred:6:2);
WriteLn;

Sum:=0;
for i:=1 to n do
begin
Write (‘a = ‘);
ReadLn(a);
Sum:=Sum+a;
end;
Sred:=Sum/n;
Writeln(‘Sred = ‘, Sred:6:2);
ReadLn;
end.

Источник: megaznanija.com

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

var a,b,c,d:integer;
begin
for a:=1 to 10 do begin
write(‘введите число=> ‘);
readln(d);
if (d mod 2=0) then c:=c+1 else d:=d+1;
end;
writeln(‘чётных=> ‘,c,’ нечётных=> ‘,d);
end.

Спасибо 55

• Отметить нарушение

Ответ

MarshalXaker

18 Цикл while Python

program znanija;
var s,nc,c,i:integer;
begin

for i:=1 to 10 do
begin
read(s);
if odd(s) then inc(nc);
if not odd(s) then inc(c);
end;

writeln(‘Чётных: ‘,c,’ Не чётных: ‘, nc);

Источник: znanija.net