1 + (1/2) + (1/3) + (1/6) = 1 + (3/6) + (2/6) + (1/6) = 1 + 1 = 2
Pascal ABC
program perevod;
uses crt;
var
a,i,error:integer;
s,d:string;
begin
write(<em>'Введите число: '</em>);
readln(a);
str(a,s);
for i:=1 to length(s) do d:=s[i]+d;
val (d,a,error);
write(<em>'Ответ: ',</em>a);
end.
C исполнителем КАЛЬКУЛЯТОР 10 команд:1122121221
С программой Ответ 35
вычисляем а (=3)
условие Если 6>6 не выполняется Считаем по второй формуле (после else)
После Program введи что-то, например zadanie;
Не забудь про символ "точка с запятой"
Var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1