Var a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
<span>end.
Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
</span>a = InputBox("Введите A: ")<span>
min = a
b = InputBox("</span>Введите <span>B: ")
If b < min Then min = b
c = InputBox("</span>Введите <span>C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub
Для наибольшего
</span>Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub
1) var
s:string[100];
begin
write('Введите фамилию: ');
readln(s);
writeln;
writeln('Символов: ',length(s));
writeln('3ий символ: ',s[3]);
end.
2)var
y,x:real;
begin
readln(x);
y:=(sqr(x)+sqrt(x))/10;
writeln(y);
end.
3)var
g:integer;
begin
writeln('Год рождения: '); readln(g);
if 2019-g>18 then writeln('Совершеннолетний')
else if 2019-g<18 then writeln('Увы')
else writeln('В течение этого года станет совершеннолетним')
end.
4)var
sum,n,i:integer;
begin
readln(N);
sum:=0;
for i:=10 to N do
sum:=sum+i;
writeln(sum/(i-9));
end.
5)var
a,b:integer;
begin
repeat
readln(a,b);
writeln('Repeat');
until ((a>=0) and (a mod 2=0)) or ((b>=0) and (b mod 2=0));
writeln('a*b= ',a*b);
writeln('a+b= ',a+b);
end.
№1.Под 1
#include <iostrem>
#include <cmatch.h>
using namespace std;
int main (); {
double x,y,a;
cout x;
cout y;
a=((sin(x)+cos(x))/(cos(x)-sin(y)))*tg(x*y);
cin a;
return 0;}<span>
</span>
Во вкладке «Главная» меню Word есть раздел «Абзац», войдя в который, настраивают все абзацные параметры. В этом окне настраиваются отступы первой строки или всего текста, междустрочные интервалы.
