1) var i,n:integer;
c,d:integer;
a:array[1..1000] of integer;
begin write('введите c,d,n');
read(c,d,n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i],' ');
end;
for i:=1 to n do begin
if (a[i]>=c) and (a[i]<=d) then write(a[i],' ');
end;
end.
2) по ссылке на файл
Var
a: integer;
t,s: boolean;
begin
t := true;
read(a);
s := a > 0;
if a <> 0 then
read(a);
while t and (a <> 0) do
begin
t := (a > 0) <> s;
s := not s;
read(a)
end;
writeln(t)
end.
Задача
Дано число. Найти сумму и произведение его цифр.
Решение
Описание переменных:
n – число;
sum – сумма цифр;
mult – произведение цифр.
Алгоритм решения задачи:
<span>sum присвоить ноль.mult присвоить единицу (при умножении на ноль результат будет нулевым).<span>Пока n больше нуля <span>найти остаток от деления n на 10 (те. последнюю цифру числа), добавить его к сумме и увеличить произведение;избавиться от последнего разряда числа n путем деления нацело на число 10.</span></span></span>
Для сего надо лишь умножить последнюю цифру на 3 и выделить кол-во единиц же
var
a: <em>integer</em>;
begin
readln(a);
writeln((a <em>mod </em>10 <em>*</em> 3) <em>mod</em>10);
<span>end.</span>
Если ученик один, то один к одному, если аудитория, то один ко многим