Напишіть програму, яка за кількістю правильних відповідей к визначає оцінку учня за виконання тесту за правилом: якщо k> 9, то оцінка «відмінно»; якщо 8< =k< =9 – оцінка «добре»; якщо 6< =k< =7 – оцінка «задовільно»; якщо к < 6 – повідомлення «слід повторити роботу»). phyton
var
s:string;
n:integer;
begin
Write('Введите строку: '); Readln(s);
// a
n:=Length(s);
Writeln('Количество символов в строке равно ',n);
// b
Writeln(s[1],', ',s[2],', ',s[n]);
// c
Writeln(Ord(s[1]),', ',Ord(s[n]));
// d
if s[1]=s[n] then Writeln('Первый и последний символы совпадают')
else Writeln('Первый и последний символы не совпадают');
// e
if n mod 2 = 0 then Writeln('Количество символов в строке четно')
else Writeln('Количество символов в строке нечетно');
// f
if Pos('мама',s)>0 then Writeln('Строка содержит слово "мама"')
else Writeln('Строка не содержит слово "мама"')
end.
Тестовое решение:
Введите строку: Тестовая строка со словом <мама> внутри
Количество символов в строке равно 39
Т, е, и
210, 232
Первый и последний символы не совпадают
Количество символов в строке нечетно
Строка содержит слово "мама"