На размер файлапрезинтации существенно влияет размер графических объектов. на сколько килобайт изменится размер презентации если сменит рисунок размером 20кбайт на рисунок размером 200кбайт
1 подсчитать количество (n) символов в введенном предложении 2 организовать цикл (i=1)с количеством циклов n-1 3 в теле цикла ввести условие / если (функция выделения первого символа (i)) неравно " "(пробел) И (функция выделения последующего символа (i+1)) равно " " то включаем счетчик r=r+1 / 4 короче нужно искать совпадение символ-пробел, но есть проблема с последним символом если этот символ не пробел то слово не зачтется для этого нужно одно условие если (функция выделения последнего символа (n))неравно " " то r =r+1
program z1; var k, m, r: integer; begin write('k = '); readln(k); write('m = '); readln(m); r := 60 * k + m; writeln('в минутах: ', r); end.
2)
program z2; var k, m, a, b, l: integer; begin write('k = '); readln(k); write('m = '); readln(m); write('a = '); readln(a); write('b = '); readln(b); write('l = '); readln(l); if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then writeln('пойду') else writeln('не пойду'); end.
3)
program z3; var m, r: integer; begin write('m = '); readln(m); r := m; while r >= 60 do r := r - 60; writeln('стрелка будет показывать ', r, ' минут'); end.
Увеличится на 180 Кбайт