var s1,s2:string; l1,l2:integer; begin readln(s1); readln(s2); l1:=length(s1); l2:=length(s2); if l1<l2 then writeln('1-я строка короче') else if l2<l1 then writeln('2-я строка короче') else writeln('Строки имеют одинаковую длину'); end.
var a: array[1..100] of real; i, n: integer; min, max: real; k: integer;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100); write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} k := 0; for i := 1 to n do if a[i] > 5 then k := k + 1; writeln(k); end.
Начнём с того, чтобы создавать презентацию в MSPowerPoint, необходимо создать слайды во вкладке "Главное" где в левом верхнем углу будет окошко создания слайда, где можно также выбрать шаблон желаемого слайда (титульный),Далее создав определённое количество слайдов мы можем приступить к работе с ними (Программа PowerPoint Обладает широкимфункционалом визуальных функций, чтобы привлекать внимание зрителя), мы можем вставить: звук,картинки,диаграммы,таблицы,видеоклипы и т.д.( и впоследствии настраивать их:воспроизведение,отображение)Можно настроит задний фон для слайдов(можно выбрать из списка шаблонов), и их анимацию для каждого по отдельности(это придаст интереса при просмотре)
begin
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
if l1<l2 then writeln('1-я строка короче')
else if l2<l1 then writeln('2-я строка короче')
else writeln('Строки имеют одинаковую длину');
end.
Пример:
program
var
2-я строка короче