Можно проанализировать работу цикла по шагам (берутся при расчете всегда текущие, т.е. последние значения переменных). Цикл с параметром i выполняется 5 раз:
1 шаг. i=1, f=f*i=1*1=1
2 шаг. i=2, f=1*2=2
3 шаг. i=3, f=2*3=6
4 шаг. i=4, f=6*4=24
5 шаг. i=5, f=24*5=120
В результате вычисляется то, что называется факториалом числа (обозначается знаком !), в данном случае 5!
Это графическая информация
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)
Программы из 5 команд и результаты их выполнения:
11111: 7^5 * 2^5 = 16807 * 32 = 537824
11112: 7^5 / 7 * 2^4 = 2401 * 2^4 = 38416
11122: 7^5 / 7^2 * 2^3 = 343 * 8 = 2744
11222: 7^5 / 7^3 * 2^2 = 49 * 4 = 196
12222: 7^5 / 7^4 * 2 = 7 * 2 = 14
22222: 7^5 / 7^5 = 1
(Сами числа вычислять не обязательно)
Все другие программы будут давать в результате одно из перечисленных выше значений. Например, результат программы 12121 = результату программы 11122:
7^5 * 2 / 7 * 2 / 7 * 2 = 7^5 / 7^2 * 2^3
Ответ: количество различных чисел = 6
Var
a:array[1..100,1..100] of longint;
n,m,i,j:longint;
begin
readln(n);
for i:=1 to n do for j:=1 to n do
begin
if not odd(n) and((i=n div 2)or(i=(n div 2)+1)) then a[i,j]:=1 else
if odd(n) and( i=(n div 2)+1) then a[i,j]:=1 else
if i<n div 2 then a[i,j]:=0 else
if i>n div 2 then a[i,j]:=2;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]);
writeln;
end;
end.
<span>
</span>