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

298

413

Посмотреть ответы 3

Ответы на вопрос:

Tavvi

Информатика

4,8(97 оценок)

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.

Mara6458

Информатика

4,8(6 оценок)

Var c, a: integer; begin c : = 1; while (c < > 0) do begin readln(c); inc(a); end; writeln(a - 1); end.а во второй разве может сумма одних и тех же чисел (пусть даже удвоенная, утроенная и т.д.) внезапно стать нулём? о_о