Ребятушки, помогите пожалуйста PASCAL - Помощь студентам

Quposle · 15.12.2014, 11:35

Под 3 цифрой, пожалуйста:*

Аватар · 15.12.2014, 12:10

Охренеть. Нужно было еще вверх ногами

Konstantin_ua · 15.12.2014, 12:18

var n:integer; x:real;
begin
n:=0;
x:=-4;
writeln("vedite n-?");
readln(n);
while n>=0 do
begin
x:=x*-2;
n:=n-1;
end;
writeln("x=", x:6:2);
readln;
end;

15.12.2014, 12:10	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Охренеть. Нужно было еще вверх ногами Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ребятушки, помогите(((	аннна22	Паскаль, Turbo Pascal, PascalABC.NET	0	01.12.2013 20:32
Помогите пожалуйста с задачами по Pascal	yakimchukav	Паскаль, Turbo Pascal, PascalABC.NET	17	18.06.2009 16:03
Помогите пожалуйста с задачей (Pascal)	Pavel!!	Помощь студентам	3	25.01.2009 23:39

15.12.2014, 12:18	#3
Konstantin_ua Не судите строго Форумчанин Регистрация: 31.03.2011 Сообщений: 202	var n:integer; x:real; begin n:=0; x:=-4; writeln("vedite n-?"); readln(n); while n>=0 do begin x:=x*-2; n:=n-1; end; writeln("x=", x:6:2); readln; end;