Помогите решить!!! Паскаль через оператор while

Знания

Информатика

1 ответ:

Shakespeare3 года назад

0 0

var
n,ans:integer;
begin
Readln(n);ans:=1;
while n > 1 do
begin
ans:= ans * n;
n := n - 1;
end;
Writeln(ans);
end.

Читайте также

Как нарисовать в "Кумир" число 1,2,3,4,5,7,8,9? Исполнитель Чертежник

Unkwri [4]

Вот все числа в ряд (без запятых):

использовать Чертежник
алг
нач
| 1
сместиться на вектор (1,3)
опустить перо
сместиться на вектор (2,2)
сместиться на вектор (0,-4)
поднять перо
| 2
сместиться на вектор (1,3)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (2,0)
сместиться на вектор (0,-2)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
поднять перо
| 3
сместиться на вектор (1,4)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
поднять перо
| 4
сместиться на вектор (3,4)
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (0,2)
опустить перо
сместиться на вектор (0,-4)
поднять перо
| 5
сместиться на вектор (3,4)
опустить перо
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,-2)
сместиться на вектор (-2,0)
поднять перо
| 6
сместиться на вектор (5,4)
опустить перо
сместиться на вектор (-2,-2)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
| 7
сместиться на вектор (3,2)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,-4)
поднять перо
| 8
сместиться на вектор (3,2)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (2,0)
сместиться на вектор (0,-4)
сместиться на вектор (-2,0)
сместиться на вектор (0,2)
сместиться на вектор (2,0)
поднять перо
| 9
сместиться на вектор (1,-2)
опустить перо
сместиться на вектор (2,2)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (-27,-3)
кон

0 0

4 года назад

подбери к каждому слову пару! Пожалуйста! !!

dimasss87 [7]

2-10
3-7
4-4
5-6
6-1
7-?
8-3
9-8
10-2
11-9

0 0

4 года назад

Сочинение на тему:Я хочу...(из современного)(информатика)Например:робота который все за меня делает))пожалуйста!очень надо!!!!!!

Lolya Zaytseva

Элик. Мне приснилось что Есть такой робот который чувствует и как живой друг или подруга и когда я пришла в школу то узнала что у нас сочинение и записала это и я очень хочу чтобы это исполнилось

0 0

4 года назад

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а ес

Александра92009 [14]

Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.

незачто

0 0

4 года назад

Для какого х истинно выражение: (x<3)&((x<2) ∨(x>2)) X=1 ; X=2 ; X=3 ; X=4

maximum64

(х<3) подходит х=1 и х=2
(х<2) подходит х=1
(х>2) подходит х=3, х=4

0 0

4 года назад