Var
k: integer;
m: real;
begin
writeln('Введите расстояние в километрах');
read(k);
m := k * 0.62;
writeln(k, ' км = ', m:0:2, ' миль');
readln;
end.
Var chisl:array[1..4]of integer;
i,min:integer;
begin
for i:=1 to 4 do begin
Write(i,'-чисдо='); Readln(chisl[i]);
end;
min:=chisl[1];
for i:=1 to 4 do begin
if chisl[i]<=min then min:=chisl[i];
end;
Writeln('Квадрат минимума=', sqr(min));
end.
var x:integer;
begin
writeln('введите число');
readln (x);
case x of
0:writeln ('Zero');
1:writeln ('One');
2:writeln ('Two');
3:writeln ('Three');
4:writeln ('Four');
5:writeln ('Five');
6:writeln ('Six');
7:writeln ('Seven');
8:writeln ('Eight');
9:writeln ('Nine');
end;
end.
uses crt;
var i,z:integer;
begin
clrscr;
i:=0;
while i<100 do
begin
if i mod 11=0 then z:=z+i;
i:=i+1;
end;
writeln('Summa= ',z);
readln();
end.