Год на планете Z делится на месяцы. Все месяцы длятся по M дней. От начала года дней. Запишите дату так, как это делают на Земле.
9.11 — означает, что идет 9-ый день 11-ого года.
Выделите операторы программы для решения этой задачи.
Program Ufo;
Var M, D : integer; // Дано
month, day: integer; // Найти
Begin
[ Readln / Writeln / Integer] (M, D);
month := [ D mod M / D mod M / D / M ];
day := [ D mod M / D div M / M mod D / M div D];
[ writeln / readln] ( [ day / D / month / M] ,’.’ , [ month / day / D / M] );
End.
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот
Количество слов с ол можно подсчитать по той же схеме, если считать ол единой буквой. У нас остаётся буквы: Н, Б, Е, ИЙ, причём слово не может начинаться с Й. Количество таких слов равно 6*5*5*3*2*1=900. Всего возможных кодов получается 5400-900=4500.
Ответ: 4500.