Версия для печати темы

Автор: Sonni 25.05.2006 0:41

Вроде циклический:
Вывести столбиком следующие числа: 2,1 ; 2,2 ; 2,3 ; … , 2,8.

Автор: Merlin 25.05.2006 0:51

Program mas;
 const n=5;
 var
 a:array[1..n] of real;
 i:integer;
begin
writeln('Введите элементы массива ');
for i:=1 to n do
 readln(a[i]);
 for i:=1 to n  do
 writeln(a[i]);
 writeln;
readln;
end.

Это не то ?

Автор: volvo 25.05.2006 1:05

Не совсем...

for i := 21 to 28 do
  writeln(i/10:0:1);

или так:

i := 2;
while i < 2.8 do begin
  i := i + 0.1;
  writeln(i:0:1);
end;