Uses crt;
var i:integer;
s:real;begin
s:=1;write(s);
for i:=1 to 50 do begin
i:=i+1;
s:=s*i;write('*',i);
end;
write (' = ',s);
<span>end.
P.s. Программа написана на языке PascalABC, странный ответ она выдает потому, что в данном языке есть ограничения, и число, которое получается, выходит за диапазон данного значения.</span>
85 Фоксов - лгут
50 Фордов - лгут
100 - 85 = 15 - Фоксов говорят правду
100 - 50 = 50 - Фордов говорят правду
85 + 50 = 135 - количество фоксов и фордов, которые лгут
15 + 50 = 65 - количество фоксов и фордов, которые говорят всегда правду
300 - (135+65) = 300 - 200 = 100
В условии не сказано, что Фоксфорды вообще могут лгать. Так, что по идеи ответ 100.
Формула "=СТОЛБЕЦ()*СТРОКА()". Вставляешь в нужною ячейку, ставишь сдвиги и протягиваешь.Если это ячейка B8, то поправляем формулу так: "=(СТОЛБЕЦ()-1)*(СТРОКА()-7)".
Шестиричная (основание 6): 22=34, 22 делим на 6 и получаем результат 3 остаток 4, записываем число - 34
девятиричная (основание 9): 22=24 , 22 делим на 9, получаем 2, остаток 4, записываем число - 24
с основанием 18 - число 14
Var a:array[1..20] of integer;
i:integer;
sr:real;
begin
for i:=1 to 20 do begin
a[i]:=random(-20,20);
sr+=a[i];
write(a[i],' ');
end;
writeln;
write(sr/20:3:2);
<span>end.</span>