1)Лебедев
2)Рамеев
3)<span>Ершов
4)</span><span>Буш
5)</span><span>Энгельбарт
6)</span><span>Цузе
7)</span><span>Жаккард
8)</span><span>Паскаль</span>
1,4 слайд установить переключение по щелчку
2,3 установить переключение по времени и задать время в секундах
1:
var n:integer;otvet:real;
begin
writeln('Введи n:');
readln(n);
otvet:=1;
for var i:=1 to n do otvet:=otvet*i;
writeln('n!=',otvet);
<span>end.
2:
var n:integer;otvet:real;prostoe:boolean;
begin
writeln('Введи n:');
readln(n);
prostoe:=true;
for var i:=2 to n-1 do if n mod i = 0 then
begin
writeln(n, ' Не простое, делится на ',i);
prostoe:=false;
exit;
end;
if prostoe then writeln(n, ' Простое');
<span>end. </span></span>
Var x,y,k,err:integer;s:string;d,e:real;
begin
err:=0;
read (x,y);
d:=max (x+y,y-x) + 3;
e:=min (sqr(x)+sqr(y),sqr(y)+x*y) - 4;
str (e,s);
k:=length(s);
val (s,e,err);
if (d<e) then
begin
d:=d+(e div (10*(k-1)));
end else
begin
d:=power (d,1/(e div (10*(k-2))));
end;
writeln (d);
end.
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
