Var n,i: integer;
begin
readln(n);
for i:=1 to 9 do
writeln(n,'*',i,'=',n*i);
end.
Албания - Тирана;
Бельгия - Брюссель;
Венгрия - Будапешт;
Греция - Афины;
Лихтештейт - Вадуц.
<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var animals=["кот","рыба","лемур","комодский варан"];
for (i=0; i<animals.length; i++) {
s1 = s1+animals[i]+"\n";
animals[i] = animals[i] + " - прекрасное животное";
s2 = s2+animals[i]+"\n"
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<H1>Животные</H1>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!" onClick="btnClick();">
<P>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
Результат:
<BR>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>
Тип данных Длина Диапазон значений
байт
ЦЕЛЫЕ ТИПЫ
integer 2 -32768...32767
byte 1 0...255
word 2 0...65535
shortint 1 -128...127
longint 4 -2147483648...2147483647
ВЕЩЕСТВЕННЫЕ ТИПЫ
real 6 2,9 * 10^-39 ... 1,7 * 10^38
single 4 1,5*10^-45 ... 3,4*10^38
double 8 5*10^-324 ... 1,7*10^308
extended 10 3,4*10^-4932 ... 1,1*10^4932
ЛОГИЧЕСКИЙ ТИП
boolean 1 true, false
СИМВОЛЬНЫЙ ТИП
char 1 все символы из таблицы ASCII