Question

Язык Паскаль! 1)Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.2)Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.

Answer 1

1) program project1;
var a:char;
s:integer;
begin
s:=0;
repeat
writeln('Введите символ');
readln(a);
case a of '1','2','3','4','5','6','7','8','9','0': s:=s+1;
end;
until a='0';
writeln('введено s цифр');
readln;
end.
  


2)  var A, I, Summa : Byte; 
begin 
Randomize; 
Summa := 0; 
for I := 1 to 5 do 
begin 
I := Random (21) - 10; 
Write (IntToStr (I) + ' '); 
Summa := Summa + I; 
end; 
Writeln; 
Writeln ('Summa = ' + IntToStr (Summa)); 
Readln; 
end.

Answer 2

Var c, a: integer;
begin
     c := 1;
     while (c <> 0) do
     begin
          readln(c);
          inc(a);
     end;
     writeln(a - 1);
end.

А во второй разве может сумма одних и тех же чисел (пусть даже удвоенная, утроенная и т.д.) внезапно стать нулём? О_О

Answer 3

1) Чтобы решить эту задачу на языке Паскаль, вам понадобится цикл, который будет выполняться до тех пор, пока пользователь не введет число 0. Вы можете использовать цикл repeat-until для этой цели.

Код на Паскале для решения этой задачи выглядит следующим образом:

var
  number: integer;
  count: integer;

begin
  count := 0;

repeat
    WriteLn('Введите число (для завершения введите 0): ');
    ReadLn(number);
    count := count + 1;
  until number = 0;

WriteLn('Количество введенных чисел: ', count - 1); // -1 потому что 0 не учитывается
end.

2) В этой задаче вам нужно сгенерировать случайные числа в заданном диапазоне [-10, 10], вывести их на экран и найти сумму чисел до тех пор, пока не встретится число 0.

Код на Паскале для решения этой задачи выглядит следующим образом:

var
  number: integer;
  sum: integer;

begin
  sum := 0;

repeat
    number := Random(21) - 10; // генерация случайного числа от -10 до 10
    WriteLn(number);
    sum := sum + number;
  until number = 0;

WriteLn('Сумма чисел: ', sum);
end.

В обоих примерах используется цикл repeat-until, который позволяет выполнять блок кода до тех пор, пока условие внутри until не станет истинным. Каждый раз, когда пользователь вводит новое число или генерируется случайное число, счетчик увеличивается или сумма обновляется соответственно.