Мне решили задачу, но выдаёт ошибку, что не правильно: С помощью цикла for и функции Odd напишите программу, выводящую, все нечетные числа из диапазона 1..100.
program qqq;
uses crt;
var i;
begin
for i:=1 to 100 do
if odd(i) then writeln(i,', ');
end.
А во второй задаче слишком длинная строка, как исправить:
diametr: real;
distance:real;
end;
var
planeta: array[1..8] of systema;
i: integer;
begin
writeln('вводим данные о планетах');
for i := 1 to 8 do
begin
with planeta[i] do
begin
writeln('название');
readln(nazvanie);
writeln('объем');
readln(obiom);
writeln('diametr');
readln(diametr);
writeln('номер');
readln(nomer);
writeln('дистанция');
readln(distance);
end;
end;
for i := 1 to 8 do
begin
writeln(planeta[i].nazvanie, ' ', planeta[i].nomer, ' ', planeta[i].obiom, ' ', planeta[i].diametr,' ',planeta[i].distance);
end;
readln;
end.
Очень жду ответа!!!!!
