File3. Дано имя файла и вещественные числа A и D. Создать файл веществен-ных чисел с данным именем и записать в него 10 первых членов арифме-тической прогрессии с начальным членом A и разностью D: A,A+D,A+2∗D,A+3∗D, …
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | program File3; var S:String; F: File of Real; i:integer; A,D,Num:Real; begin Write('S: '); Readln(S); Write('A: '); Readln(A); Write('D: '); Readln(D); Assign(F,S); ReWrite(F); For i:=0 to 9 do begin Num:=A+i*D; Write(F, Num); end; Close(F); end. |
Нужен c#
Нужен пайтон 😡