Написать программу на языке Pascal которая вводит первых 50 членов арифметическо...

June 2022 1 1 Report

Написать программу на языке Pascal которая вводит первых 50 членов арифметической прогрессии.Помогите пожалуйста..

Answers & Comments

Verified answer

Var a: array [1..50] of integer ;
d:integer;

begin
write ('Введите первый член a1 = ');
read(a[1]);
write('Разность d = ');
read(d);
writeln(a[1]);
for var i:=2 to 50 do begin
a[i]:=a[1]+d*(i-1);
writeln(a[i]);
end;
end.

1 votes Thanks 0

vliyanie okruzhayushej sredy predpriyatij na ekologichnost produktovpomogite pzh sroch

Answer

NATALI5689 July 2022 | 0 Ответы

napisat programmu na yazyke paskalkotoraya proveryaetyavlyaetsya li chislo chetnym i

Answer

NATALI5689 July 2022 | 0 Ответы

proizvoditelnost truda vyrazhaet zatraty rabochego vremeni na proizvodstvo edini

Answer

Answers & Comments

Verified answer

vliyanie okruzhayushej sredy predpriyatij na ekologichnost produktovpomogite pzh sroch

napisat programmu na yazyke paskalkotoraya proveryaetyavlyaetsya li chislo chetnym i

proizvoditelnost truda vyrazhaet zatraty rabochego vremeni na proizvodstvo edini

рекомендуемые вопросы

Helpful Links

Helpful Social