Var a,b,c,d:real;
begin
writeln ('Введите длины сторон первого прямоугольника');
read (a,b);
writeln ('Введите длину одной стороны второго прямоугольника');
read (c);
d:=(6*a*b)/c; //Из формулы s2/s1=6 ; c*d/a*b=6
writeln ('Длин другой стороны второго прямоугольника = ',d)
end.
program raf105;
var
i,n: integer;
s: real;
begin
write('Введите N: ');
readln(n);
repeat
i:= i+1;
s:= s + 1/i;
until i = n;
writeln('S = ',s);
end.
<h3><u>PascalABC 3.4.2</u></h3>
1)250 |8
31(2)|8
3(7) =372 (8)
2)5E(16)= 5*16^1+14*16^0=80+14=94
3)10011-110=1101
4)11100110
5)14(x)+42(x)=100(x)
x^1+4x^0+4x^1+2x^0=1*x^2
5x+6=x^2
x^2-5x-6=0
D=49
x=(5+7)/2=6
От 6
Oldschool...
- Поле ввода текста <INPUT type=text> представляет собой прямоугольное поле, предназначенное для ввода одной строки текста.
- Флажки <INPUT type=checkbox>, или кнопки с независимой фиксацией, служат для многокомпонентного выбора.
- Контейнер <SELECT>…</SELECT> используется для создания раскрывающегося списка
- Контейнер <TEXTAREA>…</TEXTAREA> задает многострочное текстовое окно.