Даны целые числа x, y, c. напишите программу которая находит значение выражения x+y/2c и выводит на экран монитора результат.

196

439

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

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

напарницавМоскве

Информатика

4,4(38 оценок)

Program prog1; var x, y, c: integer; s: real; begin readln(x, y, c); s: =x+y/2c; writeln('значение выражения x+y/2c равно', s); end.

AlexxxM1

Информатика

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

Var a: array [1..10] of real; b: array [1..10] of real; i: integer; begin writeln('массив а: '); for i: = 1 to 10 do begin a[i]: = random(200) - 100; {задаем каждый элемент массива а случайным числом на отрезке [-100; 100]} writeln(a[i]); end; writeln('массив в: '); for i: = 1 to 10 do begin b[i]: = a[i] / 5; writeln(b[i]); end; end.