Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>
10111(2) = 2^4+2^2+2^1+2^0 = 16+4+2+1 = 23(10)
10(16) = 16(10)
Средняя скорость = (12+23+2*16)/4 = 67/4 = 16,75(10)
<span>16,75 = 2^4+2^(-1)+2^(-2) = 10000,11(2)
Ответ: 10000,11(2)</span>
3)
var x, y, min, max: real;
label M1;
begin
write('x=');
readln(x);
write('y=');
readln(y);
If x>y then
begin
min:=x;
max:=y;
goto M1;
end
else
min:=y;
max:=x;
goto M1
M1: writeln('min=', min:8:3, ' max=', max:8:3);
end.
2) var a, b, c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
If (a=b) and (b=c) then
begin
writeln('Треугольник равносторонний');
end
else
writeln('Треугольник неравносторонний');
end.
1) var a, b: real;
begin
write('Допустимая скорость =');
readln(a);
write('Скорость водителя =');
readln(b);
If (a=b) or (a>b) then writeln('Водитель не превысил скорость');
If a<b then writeln('Водитель превысил скорость');
end.
Я надеюсь, что я правильно поняла задание первой и второй задачи о:
var
n, cnt, val, sum: integer;
begin
readln(n); // кол-во чисел в последовательности
repeat
readln(val); // Вводим любое число
if (val mod 6 = 0) and (val mod 10 = 4) // если число mod 6 = 0 значит оно кратно 6
then sum := sum + val;
cnt := cnt + 1;
until(cnt >= n);
writeln(sum);
end.
// 2 задача
var
val, sum: integer;
begin
repeat
readln(val);
if (val mod 5 = 0) and (val mod 10 = 5)
then sum := sum + val;
until(val = 0);
writeln(sum);
end.
Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub