<em>1a)</em>
(-3-7)/(-1)+1 = <u>11 раз</u> выполнится цикл. Стандартная формула вычисления числа шагов.
<em>1b)
</em>Тут k меняется от 0 с шагом 4 до 14 (15 уже нельзя). По той же формуле:
(14-0)/4+1 = 3+1 = <u>4 раза</u> (деление мы выполняем нацело).
<em>1c)</em>
k присваивается значение 10, затем оно уменьшается на 1 (теперь k=9) и проверяется условие завершения цикла k>2.
Условие завершения истинно, поэтому цикл будет выполнен <u>1 раз</u>.
<em>2a)</em>
До входа в цикл s=0, а при каждом проходе по циклу s увеличивается на 1, если выполняется некое условие, т.е. s - это счетчик, значение которого выводится после окончания цикла.
Условие k mod 7 = 0 сообщает нам, что именно подсчитывается: сколько раз k будет делится на 7 без остатка. Значение k изменяется от 1 до 27 и легко найти на этом интервале все числа, кратные 7, если вспомнить таблицу умножения: 7, 14, 21.
Следовательно, будет выведено число <u>3</u>.
<em>2b)</em>
Здесь так же s=0 перед входом в цикл, но в теле цикла s увеличивается уже не на 1, а на k, т.е. это накопление суммы некоторых k. Первоначально k=1, а затем оно с шагом 4 растет, пока остается меньше 18, т.е k = 1, 5, 9, 13, 17. Сумма этих чисел и будет накоплена в s, так что s = 1+5+9+13+17 = <u>45</u>
<em>2с)</em>
Здесь выводится значение p. Перед входом в цикл ему присваивается уже не 0, а 1, так что тут "запахло" произведением, а не суммой. И действительно, в теле цикла p домножается на k, т.е. это произведение неких k. Посмотрим, каких именно.
Первоначально k=0. Входим в цикл, он типа repeat, поэтому входим, не думая. Первое же умножение p на 0 даст 0 и дальше уже нечего
думать: сколько не умножай, ноль нулем и останется. Так и будет выведено число <u>0</u>.
var s:string;
i:integer;
begin
readln(s);
for i:= length(s) downto 1 do
if s[i]=',' then delete (s, i, 1);
writeln(s);
end.
Пример оптической памяти - CDRom, DVDRom, BlueRay.
магнитная память - Жесткий диск винчестера,
электронная память - память RAM, Flash, Solid State Drive.
В целом их можно расположить в таком порядке:
<span>1 - оптическая
2 - магнитная
3 - электронная</span>
Хотя в реальности все намного сложнее и зависит от конкретной технологии.
Количество слогов считаем по количеству гласных букв в слове.
Program pr;
uses crt;
var str,s: string;
a,i,j,len,k,kslog: byte;
Begin
Writeln('Введите предложение');
readln(str);
Writeln('Введите кол-во слогов');
readln(k);
Writeln('Слова с ',k,' слогами:');
Writeln;
len:=length(str);
a:=0;
kslog:=0;
for i:=1 to len do
Begin
if (str[i] = ' ') then
Begin
s:=copy(str,i+1,a);
for j:=1 to length(s) do
Begin
if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then inc(kslog);
end;
if (k=kslog) then Writeln(s);
kslog:=0;
a:=0;
end
else a:=a+1;
end;
Writeln;
Writeln('Для завершения программы нажмите Enter');
readln;
end.<span> </span>