между числами 6 и 49 разместить 5 чисел на равном расстоянии и вывести весь ряд на экран. Paskal ABC
Ответы на вопрос
Ответил demlock
0
program z;{a1=6,d=}const n=7;var a:array[1..n] of real;a1,i:integer;d:real;begina1:=6;d:=(49-6)/7;for i:=1 to n do begina[i]:=a1+(i-1)*d;writeln(a[i]:3);end;
end.
end.
Ответил demlock
0
{a1=6,d=}-комментарий, его не нужно печатать
Новые вопросы