№1
var chislo, sum: integer;
begin
repeat
writeln('Введите трехзначное число:');
readln(chislo);
until chislo in [100..999];
while chislo > 0 do
begin
sum := sum + chislo mod 10;
chislo := chislo div 10;
end;
if sum mod 2 = 0 then
write('Число четное')
else write('Число нечетное');
readln;
<span>end.
</span>
№2
var factorial: longint; chislo, i: byte;
begin
chislo := 5;
factorial := 1;
for i := 2 to chislo do
factorial := factorial * i;
writeln('5! = ', factorial);
<span>end.</span>
Var s:int64;
a,b,i:longint;
beginassign(input,'d.in');
reset(input);
assign(output,'d.out');
rewrite(output);
s:=0;
read(a,b);
if odd(a) then i:=a else i:=a+1;
while i<=b dobegins:=s+i;
inc(i,2);
end;
writeln(s);
<span>end.</span>
Много воды, но о большой скорости никто не говорил, верно?)
Ответ:
=B$1+$C1
Объяснение:
Символ $ фиксирует значение, в результате чего куда бы его ни копировали, 1 символ после $ останется тем же. В вашем условии ошибка. A1=B$1+$C1 => при копировании на одну ячейку ниже в A2 (прибавляем один ко всем числовым значениям) A2=B$1(не меняется)+$C2 => при копировании A1 на один вправо и на два ниже (прибавляем два ко всем числовым значениям и меняем буквы на следующие по алфавиту) в ячейку B3=C$1+$C3
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.