СОЗДАТЬ ПРОГРАММЫ В VBA 1. Дан столбец целых чисел все числа меньше 100 и вывести в конце столбца эту сумму. 2. Дан столбец, содержащий ячейки с текстом. Удалить в этом столбце тексты из одного символа.
№2 Для какого из приведённых имён истинно высказывание: НЕ(Первая буква согласная) И НЕ(Последняя буква гласная))?
1) Максим 2) Артём 3) Илья 4) Фома
Ну давай разберёмся. НЕ(Первая буква согласная) И НЕ(Последняя буква гласная)) это означает, что (Первая буква это не согласная=>гласная)И(Последняя НЕ гласная=>Согласная) Следуя это, можно уже догодаться,что правильный ответ это имя под номером 2) Артём.
№4 Пользователь работал с каталогом Информатика. Сначала он поднялся на один уровень вверх, затем дважды спустился на один уровень вниз. В результате он оказался в каталоге D:\Олимпиада\Участники. Запишите полный путь каталога, с которым пользователь начал работу.
№2 Для какого из приведённых имён истинно высказывание: НЕ(Первая буква согласная) И НЕ(Последняя буква гласная))?
1) Максим 2) Артём 3) Илья 4) Фома
Ну давай разберёмся. НЕ(Первая буква согласная) И НЕ(Последняя буква гласная)) это означает, что (Первая буква это не согласная=>гласная)И(Последняя НЕ гласная=>Согласная) Следуя это, можно уже догодаться,что правильный ответ это имя под номером 2) Артём.
№4 Пользователь работал с каталогом Информатика. Сначала он поднялся на один уровень вверх, затем дважды спустился на один уровень вниз. В результате он оказался в каталоге D:\Олимпиада\Участники. Запишите полный путь каталога, с которым пользователь начал работу.
1) D:\Олимпиада\Город\Информатика 2) D:\ Олимпиада\Информатика 3) D:\Информатика 4) D:\ Олимпиада\Участники\Информатика
Правильный ответ под номером 4)
(возможно я где-то допустил ошибку, если так,то прощения)
program raf105;
var
s,word1: string;
s2:array of string;
i,pointcount: integer;
begin
write('Введите искомое слово: ');
readln(word1);
writeln('Введите строку с предложениями, которые заканчиваются точкой');
readln(s);
for i:=1 to length(s) do
if s[i]='.'
then pointcount:= pointcount + 1;
writeln;
writeln('Предложения в которых найдено искомое слово:');
s2:= s.ToWords(#46);
for i:=0 to pointcount-1 do
if s2[i][1]=' '
then delete(s2[i],1,1);
for i:=0 to pointcount-1 do
if pos(lowercase(word1),lowercase(s2[i])) <> 0
then writeln(s2[i],'.');
end.
PascalABC 3.4.2