Алла - не 3, значит 5(так как у Люды 4)
Катя - 3 (так как у Аллы и Люды уже есть оценки)
Люда - не 3,не 5, значит 4(так как 3>4>5)
Методом вычисления:-)
1. Электронные таблицы — это прикладные программы, предназначенные для проведения табличных расчетов.
2. Абсолютные адреса, в отличие от относительных, не изменяются при копировании, перемещении, вырезании данных с адресом из ячейки.
3. Текст, числа и формулы.
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
Begin
var e: double;
var s1: double;
var s2: double;
var x: double;
var step: integer;
readln(x);
e := 0.0001;
s1 := 1;
step := 3;
s2 := (1 + x) / (1 - x) / (1 - x);
while abs(s1 - s2) > e do begin
s1 := s1 + (1 + 2*step)/power(x, step);
end;
writeln(s1);
writeln(s2);
writeln(s1 - s2);
end.
Расставь правильно скобки в условии, я исправлю решение.
Program prog;
uses crt;
var
a,b,c,s:real;
begin
write('катет a = ');
readln(a);
write('катет b = ');
readln(b);
writeln;
c:=sqrt(sqr(a)+sqr(b));
s:= (a*b)/2;
writeln('Гипотенуза с = ', c:0:3);
writeln('S = ', s:0:3);
end.
