сервис вопросов и ответовнапишите пожалуйста программу в паскале! дано предложение.вывести на экран слова, начинающиеся и оканчивающиеся на одну и ту же букву.
10-11 класс|
|
Siukaev18
23 июня 2014 г., 19:50:28 (9 лет назад)
NastyaPok
23 июня 2014 г., 20:39:54 (9 лет назад)
var a,t:string; b:array[1..100]of string; j,i,k,n:integer; begin writeln('vvedite predlojenie'); readln(a); a:=' '+a; for i:=1 to length(a) do if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i:=1 to k do begin t:=b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='o' then n:=1; if n=1 then write (t,' '); end; end.
Ответить
Другие вопросы из категории
Паскаль:
Найти сумму и количество всех трехзначных чисел, кратных 100
ПОМОГИТЕ ПРОШУ.
Для целого числа k от 1 до 9 напечатать фразу «Мне k лет\года\год».
В делфи.
Помогите решить задачу в Кумире!
Пользователь вводит целое число. Каждую цифру в нем надо заменить по следующему принципу: "1" на "9", "2" на "8", "3" на "7" и т.д. Цифра "0" не меняется. Результат сохранить в отдельной переменной и вывести на экран. Например: ввод - "4569870", вывод - "6541230"
Читайте также
1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
Помогите пожалуйста составить программу в Паскале: Дан
целочисленный массив из N элементов.
Вывести на экран сумму всех четных чисел
в этом массиве.
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
1)ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить первую цифру числа
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале
Вы находитесь на странице вопроса "напишите пожалуйста программу в паскале! дано предложение.вывести на экран слова, начинающиеся и оканчивающиеся на одну и ту же букву.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.