1) Цикл выполнится 134 раза, т.к. i = 134
2) 134 раза к y прибавится 2, т.е. 134*2 = 268 будет выведено на экран
Ответ 3) A[5,1]
1 2 3 4 5
6 7 8 9
10 11 12
13 14
<span>15</span>
Var a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
<span>end. </span>
Var n,m:integer;
mn:set of integer;
b:boolean;
begin
write('n = '); readln(n);
write('m = '); readln(m);
mn:=[];
while n>0 do
begin
mn:=mn+[n mod 10];
n:=n div 10;
end;
b:=false;
while m>0 do
begin
if (m mod 10) in mn then b:=true;
m:=m div 10;
end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n = 13579
m = 6541
Да
1. Дима дарил котенка в желтых перчатках Вике
2. 7 гладиолусов подарил Саша
3. Ульянов учитель и ездит на автобусе, Савинов журналист и ездит на такси, а Жуков сварщик и ездит на метро