сервис вопросов и ответовРаспечатать список учеников, фамилии которых начинаются на букву В, с указанием даты их рождения. На Паскале
10-11 класс|
|
Lebedkapashyn2
12 мая 2014 г., 8:13:36 (10 лет назад)
89063712304
12 мая 2014 г., 10:22:44 (10 лет назад)
var s:string;
n,i:integer;
ych:array[1..99999] of string;
begin
writeln('Введите кол-во учеников');
readln(n);
for i:= 1 to n do
begin
readln(s);
if s[1] = 'В' then
ych[i]:=s;
end;
writeln('Начинаются на В');
for i:= 1 to n do
if ych[i]<>'' then
writeln(ych[i]);
end.
настя1204
12 мая 2014 г., 11:43:01 (10 лет назад)
Комментарий удален
Ertyu
12 мая 2014 г., 14:00:21 (10 лет назад)
не увидел, где ты блок начал))If (C[1]='В') then Begin видимо сместилось
GloomyFox
12 мая 2014 г., 16:30:06 (10 лет назад)
Lenysikagafono, оставляю всё на твой суд, а я,пожалуй, спать)) всем удачи )
Dana2011david
12 мая 2014 г., 18:28:34 (10 лет назад)
Комментарий удален
Dunkoff87
12 мая 2014 г., 19:19:09 (10 лет назад)
Комментарий удален
Ответить
Другие вопросы из категории
Какой из микропроцессоров является представителем архитектуры RISC?
(укажите несколько правильных ответов)
1) AMD K7
2) i80386
3) ALPHA 21264
4) TMS320C620
5) mPD 2864
Читайте также
1. Расширение файла, как правило, характеризует:
тип файла
программное обеспечение
название программы
2. Файл - это:
поименованный объект, расположенный на диске
поименованная совокупность байтов, размещенная на внешнем носителе
совокупность поименованных ячеек памяти
3. Задан полный адрес файла: c:\documets\prikaz.doc. Какое у файла составное имя?
prikaz.doc
documets\prikaz.doc
documets\prikaz
^ 4. К сервисным системам относятся:
интерфейсные системы
инструментальные системы
утилиты
программные системы
оболочки
^ 5. Какое программное обеспечение обеспечивает рабочую среду для других программ:
прикладное
системное
инструментальное
^ 6. Какая версия программного продукта является более новой:
MS DOS 6.0
MS DOS 6.20
MS DOS 6.22
7. Программы, скачанные из Интернета и имеющие определенный срок пользования, являются:
платными
бесплатными
условно-бесплатными
^ 8. Интерфейс, в котором для управления компьютером используются объекты, называется:
объектно-ориентированным
графическим
командным
^ 9. Программы, которые существенно меняют пользовательский интерфейс, не меняя при этом программный, относятся к:
утилитам
интерфейсным системам
оболочкам
^ 10. Какой шаблон позволяет найти файлы, которые начинаются на букву f, заканчиваются на t и имеют любое расширение:
*f????t.*
f*?d.*??
f?*d.*
^ 11. Сколько различных операционных систем можно установить на одном жестком диске:
только одну
только две
только три
12. Какое максимальное число логических дисков можно создать в расширенном разделе:
три
любое
23
13. После форматирования диска его доступный объем может уменьшиться по причине:
наличия на диске логических ошибок
наличия испорченных секторов
наличия фатальных ошибок
Известна математическая задача: " Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7" А Вы попытайтесь
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
Известна математическая задача: "Существуют ли два последовательных натуральных числа, сумма цифр каждого из которых делится на 7?" Напишите программу,
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на
?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
1. Написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
ПОМОГИТЕ НАЙТИ ОШИБКУ В РЕШЕНИИ!!!
Где начать цикл?
с клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".
Program Pr1;
var s, s1, s2:string;
count, n, i:integer;
begin
writeln('введите фразу');
readln(s);
count:=0;
for i:=1 to length(s) do
begin
n:=Pos(' ', s);
s1:=Copy(s,1,n-1);
s2:=Copy(s1,1,1);
if s2='а' then
count:=count+1;
Delete(s,1,1);
end;
writeln(count);
end.
Вы находитесь на странице вопроса "Распечатать список учеников, фамилии которых начинаются на букву В, с указанием даты их рождения. На Паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.