Дана строка S, подсчитать количество слов в строке. Словом, считать набор символов любой длины (от 1 до 255), кроме знаков препинания и цифр. Если в строке есть прописные латинские буквы, то их удалить. На Паскале нужно
Носителями информации являются флэшки (USB - накопители), мобильные телефоны, диски (дискеты - наверное, уже не используются), компьютеры, ноутбуки, планшеты (если пользуетесь ими в школе) и другие всевозможные технические средства, а также книги, тетради, блокноты - в общем бумажные носители информации. Мы используем носители информации для фиксации (закрепления), хранения, использования, передачи информации (например, записать домашнее задание, записать номер телефона в мобильный телефон, сохранить на флэшке какой-нибудь скачанный фильм, музыку или другой файл любого формата, с материальных носителей мы можем смотреть фильмы, фотографии, слушать музыку и т.д. Соседу по парте можно передать информацию на любом материальном носителе, зависит от того, какая это информация. Если какое-нибудь решение домашнего задания или какая-нибудь короткая фраза, которую надо сказать, но разговаривать на уроке нельзя ))), то на бумажном носителе, если фото, или короткое видео - можно показать в телефоне, если ты принес другу игру, то на диске или флэшке. Звуковые данные можно записать на флэшку, диск, телефон, планшет, плеер.
Текст программы (Pascal) var a,b,c,d,e:byte; k:integer; begin k:=0; for a:=1 to 9 do begin for b:=0 to 9 do if b<>a then begin for c:=0 to 9 do if (c<>a) and (c<>b) then begin for d:=0 to 9 do if (d<>a) and (d<>b) and (d<>c) then begin e:=0; repeat if a*c-c*e=a-b+c+d+e then Inc(k); e:=e+2 until e<9 end end end end; Writeln(k) end.
Программа:
Pascal:
var
str, st: string;
count, i: integer;
c: char;
begin
write('Введите строку: '); readln(str);
st := str;
str := ' ' + str;
for i := 1 to length(str) - 1 do
if (str[i + 1] <> ' ') and (str[i] = ' ') then inc(count);
writeln('Слов в строке: ', count);
for c := 'A' to 'Z' do
while pos(c, st) > 0 do
delete(st, pos(c, st), 1);
writeln('Заменённая строка: ', st);
end.