Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>

0 0

4 года назад

На каком-нибудь языке (желательно си) написать программу (текст задания во вложении)

Яна Вилкова [62]

Программа без использования функции возведения в степень (pow()):
#include <stdio.h>

int main(void) {
float eps, a, s=0;
int a2=1, a3=1;
printf("eps = ");
scanf("%f",&eps);
a = 1.0/a2+1.0/a3;
while (a>=eps){
a2 *= 2; a3 *= 3;
a = 1.0/a2+1.0/a3;
s += a;
}
printf("s = %lf\n", s);
return 0;
}

Пример:
<span>eps = 0.001
s = 1.499015</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу для нахождения суммы чисел 4-х значного числа

Alexxxandr

Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.

0 0

4 года назад

Что такое компьютерный вирус, как от него избавиться?

cryptohome

Скачайте антивирус или к мастеру или!

0 0

4 года назад