Алг
нач цел i,j,s; цел таб a[1:3,1:3]
s:=0
нц для i от 1 до 3
нц для j от 1 до 3
a[i,j]:=int(rnd(10))
вывод a[i,j],' '
если i=2 то s:=s+a[i,j] все
кц
вывод нс
кц
вывод 'Сумма равна ',s
кон<span>
</span>
Ответ: ВБГА
Чем больше в запросе операций «И», тем меньше результатов выдаст поисковой сервер. Чем больше в запросе «ИЛИ», тем больше результатов выдаёт поисковой сервер.
Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>
Ответ:
Вид цикла - <em><u>вложенный</u></em> (3)
Объяснение:
Вложенный цикл, т.к. внутри <em>for</em><em> </em>находится ещё один <em>for</em>.
Program zadacha;
uses crt;
var n, k: integer;
s: longint;
begin
clrscr;
write ('enter k: ');
readln (k);
s:=0;
for n:=k to 9999 do begin
if n mod k = 0 then
s:=s+n;
end;
writeln ('summa=', s);
readkey;
end.