с Pascal! Напишите 6 программ на нём, умоляю!
1. Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом – точка. Определить количество слов, которые заканчиваются буквой ‘w’.
2. Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом – точка. Определить количество слов, которые начинаются и оканчиваются одной и той же буквой.
3. Дан текст. Составить программу проверки правильности написания сочетаний «жи»-«ши», «ча»-«ща», «чу»-«щу». Исправить ошибки.
4. Дан текст, содержащий цифры, латинские и русские буквы. Подсчитать сумму цифр, встречающихся в тексте.
5. Дан текст, содержащий от 1 до 30 слов, в каждом из которых от 1 до 5 малых латинских букв, между словами запятая, за последним словом – точка. Вывести на экран эту же последовательность слов, но в обратном порядке.
6. Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом – точка. Вывести текст, составленный из первых символов всех слов текста.
Объяснение:
Признаки могут быть существенными и несущественными. Существенные – то есть важные в данной ситуации, главные. По существенным признакам можно отличить один объект от другого. Например, для того, чтобы отличить треугольник от других геометрических фигур, существенными признаками является то, что у него три угла, три вершины и три стороны, соединяющие эти вершины, а цвет и величина несущественны. Допустим высота возраст.
Омонимы: месяц(календарный) - месяц (видимая часть луны); закапывать(яму) - закапывать (лекарство в нос, глаза); наряд(воинское задание) - наряд (одежда, костюм). Синонимы: храбрость=отвага, мужество, смелость, решимость, героизм. хитрый=лукавый, плутоватый, вилявый, изворотливый. глупый=бестолковый, безмозглый, пустоголовый, недалекий, скудоумный.
На уроке русского языка - когда мы делаем разбор слова по составу;
На уроке математики - когда строим разные геометрические фигуры.
Я насчитала 18
uses crt;
Var a,b,c:integer;
Begin
Write('Введите 1-ю сторону: '); Readln(a);
Write('Введите 2-ю сторону: '); Readln(b);
Write('Введите 3-ю сторону: '); Readln(c);
{Проверка на существование треугольника}
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if ((a=b)or (b=c) or (a=c)) then
Writeln('Треугольник равнобедренный');
if ((a=b) and (b=c)) then
Writeln('Треугольник равносторонний')
else Writeln('Треугольник разносторонний');
if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a)) then
Writeln('Треугольник прямоугольный');
end
else Writeln('Треугольник нельзя построить');
Readln();
END.