выполняем цикл (увеличиваем число a на 5 и проверяем условие число a больше 35, если условие истинно (да) выходим из цикла, если ложное (нет), то повторяем цикл)
a = a + 5 = 23 + 5 = 28
a > 35 (28 > 35, нет)
a = a + 5 = 28 + 5 = 33
a > 35 (33 > 35, нет)
a = a + 5 = 33 + 5 = 38
a > 35 (38 > 35, да)
a = a * 2 = 38 * 2 = 76 (увеличиваем число a в 2 раза)
проверяем условие является ли число a двузначным, если условие истинно (да), то выполняем левую ветку, а правую ветку (ещё один цикл) не трогаем (если условие ложно (нет), то выполняем правую ветку (ещё один цикл), а левую ветку не трогаем)
9 < a < 100 (9 < 76 < 100, да - двузначное)
a = a - 50 = 76 - 50 = 26 (уменьшаем число a на 50)
получаем ответ (больше ничего не делаем)
Спасибо
Ответ дал: Гость
1)
var
i,k: integer;
a: array [1..14] of integer;
begin
k: =0;
for i: =1 to 14 do
begin
a[i]: =random(46)-15;
write(a[i]: 3);
if a[i] mod 2=0 then k: =i;
end;
if k> 0 then
begin
for i: =k to 13 do a[i]: =a[i]+1;
a[14]: =0;
end;
writeln;
for i: =1 to 14 do write(a[i]: 3);
end.
2)
var
i,k: integer;
a: array [1..14] of integer;
begin
for i: =1 to 14 do
begin
a[i]: =random(46)-15;
write(a[i]: 3);
end;
for i: =1 to 7 do
begin
k: =a[i];
a[i]: =a[i+7];
a[i+7]: =k;
end;
writeln;
for i: =1 to 14 do write(a[i]: 3);
end.
Ответ дал: Гость
program chislo;
var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.
Популярные вопросы