Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
Write('Введите символ: ');
ReadLn(C);
For i:= 1 to S.Length do
if S[i] = C then
Write(i,' ')
End.
Пример:
Введите строку: Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *
Введите символ: а
2 4 11 57 76 113
В левой строке находится команда
Определение, выраженное существительным, согласованным с определяемым словом в падеже.
Отдай куклу воспитательнице она найдет хозяйку
А вдруг какая нибуть девочка потеряла её и теперь плачет домты поймешь скорее всего воспитатель спросит ненаходил ли ктт куклу
Возможно мама девочки позвонит
Сначало нужно уточнить у воспитателя не терял ли кто куклу
Очень даже будут рады
2 что нужно отдавать найденные вещи хозяину или хотябы попытаться найти его
1) время необходимое для передачи файла из пункта А в пункт Б - 80 сек
2) время необходимое для передачи файла из пункта Б в пункт В - 640 сек
3) 13 минут это 780 сек
4) 80+640 = 720 сек
5) 780-720 = 60 сек - это пауза на пункте Б
в задаче спрашивается Через какое время в секундах началась передача данных в пункте Б. следовательно 80+60=140