1. 1024*8=8192 (мбайт) - новая флешка
Ответ: да, можно.
хе.. остальное не охота)
Program vtor_bukva;
var
S: String;
begin
Writeln('введите исходное предложение: ');
Readln(s);
delete(s, pos(' ', s), 1);
write('Последняя буква второго слова=');
if pos(' ', s) <> 0 then write(s[pos(' ', s) - 1])
else write(s[length(s)]);
readln(s);
end.
Твоя программа выводит символ, стоящий перед ПЕРВЫМ пробелом. А нужно, чтобы выводила символ, стоящий перед вторым пробелом. Не стоит забывать, что второго пробела может и не быть. Так что, я удаляю первый пробел. А потом делаю проверку: есть ли ещё пробелы (if pos(' ', s) <> 0)? Если пробелы есть, то программа выводит букву, следующую перед вторым пробелом (или последнюю букву второго слова). Если пробелов нет (всего два слова в предложении было введено), то программа выводит последнюю букву (s[length(s)]). Если что-то не понятно, в лс.
Ну ты хоть картинку скинь с этой страницой
1. Это сведения, знания, сообщения о положении дел, которые человек воспринимает из окружающего мира с помощью органов чувств (зрения, слуха, вкуса, обоняния, осязания).
2. Текстовая, числовая, графическая, звуковая, комбинированная.
3. Процессы получения, создания, сбора, обработки, хранения, накопления, поиска, представления, использования и распространения информации. Основные виды: хранение, передача, обработка информации.
4. Количество символов, используемых в алфавите.
5. Бит, байт, кбайт, мбайт, гбайт.
6. N = 2^i, где
N - мощность алфавита;
I - количество бит на символ.
7. Единицы измерения: 1 байт = 8 бит.
8. Информация, хранящаяся на внешнем носителе и объединенная общим именем.
9. Программы, которые обеспечивают управлением работы устройств и согласовании информационного обмена с другими устройствами.
10. Компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны.
10. 32 бита = 4 байта, 2,5 кбайта = 2560 байта, 3 кбайта = 24576 бит, 6 байт = 48 бит.
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.