Написать программу в паскаль! 1) вывести n целых случайных чисел из промежутка от 0 до 10 2)вычислить сумму чисел из промежутка от 1 до 10

120

314

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

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

koneshno

Информатика

4,5(95 оценок)

1) var n,i: integer; begin readln(n); for i: =1 to n do write(random(11),' '); end. пример: 10 5 2 9 5 7 2 10 0 1 6 2.var s,i: integer; begins: =0; for i: =1 to 10 do s: =s+i; write('s = ',s); end.результат: s = 55

sowaties

Информатика

4,7(15 оценок)

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! 1) begin seqrandom(readinteger,0,10).println end. пример 13 7 5 6 8 9 9 4 5 7 3 1 7 10 2) begin writeln(1.to(10).sum) end. результат 55

KolianN

Информатика

4,5(35 оценок)

Procedure solvelinear; var k, x, b, y: real; begin write('k='); readln(k); write('x='); readln(x); write('b='); readln(b); y : = k * x + b; writeln('y=kx+b=', y); end;