Sub aaa()
Dim s As Double, r As Range
Set r = Range("C2:D8")
s = 0
For i = 1 To 7
s = s + r(i, 1) * r(i, 2)
Next i
Cells(9, 3) = s
End Sub
<u>Во вложении - файл с рабочей книгой Excel 2003</u>
В языке Python:
print('Моя первая программа напечатала "Привет!" :)')
№1
Program anton4nk;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln(' Введите в последовательности A, B, C');
readln(a,b,c);
writeln(b+sqrt(sqr(b)+4*a*c)/2*a);
end.
______________________________________
№2
Program anton4nk;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите в последовательности A, B, C, D');
readln(a,b,c,d);
writeln((a/c)*(b/d)-(a*b-c)/(c*d));
end.
______________________________________