ДАны числа а и b.Составить программу для вычесления среднего арифметического значения чисел

+ 0 -

Iramarkova96

09 июля 2014 г., 4:43:34 (9 лет назад)

Не написано на каком языке! Пишу паскаль

program 1;

var a,b,c:real;

begin 

writeln ('a=');

readln(a);

writeln('b=');

readln(b);

c=(a+b)/2;

writeln('Среднее арифметическое'c);

end.

+ 0 -

алан11

09 июля 2014 г., 6:46:18 (9 лет назад)

Пишу Visual Basic

Dim a,b as integer

private sub ...

a=textbox1.text

b=textbox2.text

Label1.text = (a+b)/2

end sub ...

На форме 

2 текстбокса, кнопка и  3 label программируем кнопкy

2 label  возле текстбоксов в 1 а = во 2 b =