.ru - Россия
.ca - Канада
.de - Германия
.fr - Франция
.uk - Великобритания
.us - США
Двоичная (0,1)
Восьмиричная (0,1,2,3,4,5,6,7)
Десятичная (0,1,2,3,4,5,6,7,8,9)
Шестнадцатиричная (0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)
Program f1;
var x,y: real;
begin
read (x);
y:=2/(x-4);
writeln( y);
end.
<span>1
2
3
4
5
6
7
8
9
10
11
12
<span>uses crt;
var a,c,h,s,x:real;
begin
clrscr;
writeln('Введите длины большего основания, боковой стороны и высоты ');
writeln('равнобедренной трапеции:');
readln(a,c,h);
x:=sqrt(c*c-h*h);
s:=(a-x)*h;
write('Площадь=',s:0:2);
readln
end.</span></span>
var
n, max, count, contrl: integer;
begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if (n mod 10 = 0) and (n > max) then max := n;
Read(n);
end;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вичисленное контрольное значение:: ', max);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.