Program L;
uses crt;
var x:integer;
begin
write(' x='); readln(x);
if (x mod 3)=0 then writeln('x=',x,' делется нацело на 3')
else writeln('x=',x,' не делется нацело на 3')
<span>end.</span>
Если это звуковой файл, то увеличить частоту дискретизации
Ответ:
Потоковый ввод-вывод из консоли: https://ideone.com/nz8goV
С использованием файлов: https://ideone.com/gIZ3O0
Объяснение:
Отступы полетели, залил в онлайн-IDE.
Ответ:Пусть дед будет старше внука в 3раза через х лет, тогда деду будет 64+х, а внуку 16+х. Составляем уравнение
\frac{x+64}{x+16} =3
х+64=3(х+16)
х+64=3х+48
2х=16
х=8
ответ через 8 лет
Объяснение:
Function F(x,eps:double):double;
var
s0,s1,sgn,d:real;
begin
s1:=x; d:=1; sgn:=1;
repeat
s0:=s1; d:=d+1; sgn:=-sgn;
s1:=s0+sgn*x/d
until abs(s1-s0)<=eps;
f:=s1
end;
var
x:double;
begin
x:=-0.5;
while x<=0.5 do begin
Writeln(x:4:1,F(x,1e-7):14:7);
x:=x+0.1
end
end.
<u>Результат</u>
-0.5 -0.3465736
-0.4 -0.2772589
-0.3 -0.2079442
-0.2 -0.1386295
-0.1 -0.0693148
0.0 0.0000000
0.1 0.0693148
0.2 0.1386295
0.3 0.2079442
0.4 0.2772589
0.5 0.3465736