Пока первый держи, остальные может завтра допишу. А так, в интернете полно примеров решения.
Program HelloWorld;var x1,y1,x2,y2:double;begin readln(x1); readln(y1); readln(x2); readln(y2); x1:=sqrt(x1*x1+y1*y1); x2:=sqrt(x2*x2+y2*y2); if(x1>x2) then writeln(x2:0:2) else if(x2>x1) then writeln(x1:0:2) else writeln('Одинаково близко',x1:0:2);end.
За 5 баллов в следующий раз никто программу не напишет вам
var mo,tu,we,th,fr,sa,su,a: ShortInt;
var b: Real;
Begin
Write('Температура воздуха в Понедельник: ');
Readln(mo);
Write('Температура воздуха во Вторник: ');
Readln(tu);
Write('Температура воздуха в Среду: ');
Read(we);
Write('Температура воздуха в Четверг: ');
Readln(th);
Write('Температура воздуха в Пятницу: ');
Readln(fr);
Write('Температура воздуха в Субботу: ');
Readln(sa);
Write('Температура воздуха в Воскресенье: ');
Readln(su);
a:=mo+tu+we+th+fr+sa+su;
b:=a/7;
Write('Средняя температура воздуха: ',b:0:2,' градусов.');
End.
Sub Z1()
MsgBox ("Моя первая программа на VBScript!!!")
<span>End Sub
В каком приложении работаешь?</span>