Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
Program Program1;
var
i,n,m,b:integer;
s,s1:string;
Begin
write('Введите значение m: ');
readln(m);
write('Введите значение n: ');
readln(n);
write('Введите значение b: ');
readln(b);
str(b,s);
for i:=m to n do
begin
str(i,s1);
if pos(s,s1)=0 then writeln(i);
end;
end.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> double val1 = 0;</span>
<span> double val2 = 0;</span>
<span> cin >> val1 >> val2;</span>
<span> cout << "Cумма = " << val1+val2 << "\n";
</span><span> cout << "Разность = " << val1-val2 << "\n";</span>
<span> cout << "Произведение = " << val1*val2 << "\n";</span>
<span> cout << "Частное = " << val1/val2 << "\n";</span>
}
<span>
</span>
2. C
3. В (во втором столбике)
4. B