Помогите решить задачу в паскале!!!
5-9 класс
|
Дана строка S и символ C. определить есть ли символ C в строке S
Паскаль
Откомпилирован в: Pascal ABC
program z1;
uses crt;
var
s: string;
c: char;
i: integer;
begin
write(' Vvedite strocy: ');
readln(s);
writeln();
write(' Vvedite sivol dl poiska: ');
readln(c);
writeln();
for i := 1 to length(s) do
if s[i] = c then //
begin
writeln(' Simvol prinadlech stroce = ', s);
break;
end;
if s[i] <> c then writeln(' Simvola net v stroke = ', s);
end.
Другие вопросы из категории
Решить задачу с помощью схемы:
Увлечения.
Витя, Саша, Андрей и Толя собирали модели
самолетов. Двое делали модели из белой пластмассы, а двое – из серой. Саша и Андрей,
Саша и Толя делали модели из пластмассы разного цвета. Получились три модели
самолетов «Ту» и одна – «Су».
Какую модель и из какого
материала делал каждый из мальчиков, если Саша делал модель самолета «Су» из
белой пластмассы
глубина представления цвета в фотокамере
Читайте также
что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?
1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,
ПОМОГИТЕЕ
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.