Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.
X=0.86547
y=0.6483
При помощи: Сервис/подбор параметра/
на 10 строк вверх и вниз
Изменяя шаг h, можно просмотреть область вокруг корня.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы отображены в строке формул.
Покажет 3.
Сначала произойдут вычисления, потом значение будет передано в поток(<<)
Var v, n, p: integer;
begin
n := 365;
v := 80;
p := Trunc(2.5 * 1024);
writeln('Скорость ', v, ' символов в секунду');
writeln('Всего ', n, ' страниц');
writeln('Объем ', p, ' символов на странице');
n := n * p;
writeln('Всего ', n, ' символов');
n := n div v;
writeln('Будет печатать ', n, ' секунд');
writeln('Или ', n div (60*60), ' ч. ', (n mod (60*60)) div 60, ' мин. ', n mod 60, ' сек.');
<span>end.</span>
Бесконечнре число раз так как i всегда >0