Begin
var e: double;
var s1: double;
var s2: double;
var x: double;
var step: integer;
readln(x);
e := 0.0001;
s1 := 1;
step := 3;
s2 := (1 + x) / (1 - x) / (1 - x);
while abs(s1 - s2) > e do begin
s1 := s1 + (1 + 2*step)/power(x, step);
end;
writeln(s1);
writeln(s2);
writeln(s1 - s2);
end.
Расставь правильно скобки в условии, я исправлю решение.
Придумайте две задачи на конъюнкцию и дизъюнкцию(с решением)
<span>пожалуйста</span>
Ответ:
1)
1 поколение ламповый машины
2 поколение вычислительные системы на большой интегральной схеме
3 поколение миникомпьютеры на интегральных схемах
4 поколение Исскуственеый интелект
2)
(1) абак
(2) цифровой компьютер
(3) аналоговый компьютер
3)
(1) пятого поколения
(2) Исскуственеый
ну всё
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s=s.Inverse then Writeln('Палиндром')
else Writeln('Не палиндром')
end.
<u>Примеры</u>
мадам
Палиндром
аргентинаманитнегра
Палиндром
12345654231
Не палиндром