Ну-с...
1: вещественное (относится к простым типам данных)
2: строка (структурированный тип данных)
3: логический (простой тип)
4: вещественное
5: строка
6: а вот что до этого типа данных, то по идее ее можно записать в какой-то из структурированных типов(массив, строка, чаще применяют объект т.е. хреновина включающая в себя несколько видов полей - структура, класс )
Я когда купался летом в реке мне было весело,и я подумал накупаюсь в реке.Не каждый раз ты будешь купаться в реке или зимой в отрубе,но в отрубе очень холодная вода там один раз нырнул и сразу из воды выпрыгиваешь.А потом привыкнешь как и к реке,главное нырнуть!
Program zadanie;
const lmax=10;
var n,i:integer; a:array [1..lmax] of integer; n1:real; flag: boolean;
begin
repeat
writeln('Введите длину массива меньше ',lmax);
read(n1);
until (n1>0) and (n1<=lmax) and (n1=round(n1));
n:=round(n1);
writeln('Введите целые элементы массива');
for i:=1 to n do
begin
repeat
read(n1);
if (n1<>round(n1)) then writeln('Введите ЦЕЛЫЙ элемент');
until (n1=round(n1));
a[i]:=round(n1);
end;
flag:=false;
i:=0;
repeat
i:=i+1;
if (a[i]mod 2=0) then
begin
flag:=true;
writeln('Номер первого четного элемента - ',i);
end;
until flag or (i=n);
if (flag=false) then writeln('0')
end.
Паскаль ABC:
Const
N = 7;
Var
A:array[0..N] of real;
i:integer;
Begin
WriteLn('N = ',7);
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
ABC.net:
Var
A:array of real;
N,i:integer;
Begin
Write('N = ');ReadLn(N);
A:=new real[N];
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
1: 1111112
2: 111222
3: 22222
4: 111113
5: 333
6: 311122
7: 3312
Отв: 7