Дана строка,состоящая из слов и чисел,отделенный друг от друга пробелами.сформировать 3 строки,одна из которых содержит только целые числа,встречающиеся в исходной строке,вторая-только вещественные числа,а третья-оставшиеся слова.

114

350

Посмотреть ответы 2

Ответы на вопрос:

0667543784u76ju

Информатика

4,7(93 оценок)

Var fullstr,s,s_int,s_rl,s_str: string; int: integer; rl: real; space,err: integer; begin writeln('string: '); readln(fullstr); while fullstr[1] = ' ' do delete(fullstr,1,1); while fullstr[length(fullstr)] = ' ' do delete(fullstr,length(fullstr),1); while pos(' ',fullstr) < > 0 do delete(fullstr,pos(' ',fullstr),1); s_int : = ''; s_rl : = ''; s_str : = ''; while fullstr < > '' do begin space : = pos(' ',fullstr); if space = 0 then space : = length(fullstr) + 1; s : = copy(fullstr,1,space-1); val(s,int,err); if err = 0 then s_int : = s_int + s + ' ' else begin val(s,rl,err); if err = 0 then s_rl : = s_rl + s + ' ' else s_str : = s_str + s + ' '; end; delete(fullstr,1,space); end; writeln('integers: ',s_int); writeln('real: ',s_rl); writeln('words: ',s_str); readln end.

Shrhfhd

Информатика

4,4(76 оценок)

Сначала половина рыб (15 штук) поедает другую половину. осталось 15 рыб, каждая из которых съела одну рыбу. дальше 7 рыб других 7, одна остается ни с чем. теперь осталось 8 рыб (7 съели по 2 рыбы, 1 съела только 1 рыбу). и вот из 8 рыб, что остались, 4 других 4. при этом 3 или 4 из них становятся сытыми, в зависимости от того, съела ли более голодная рыба менее голодную или наоборот. тоесть максимально возможное количество сытых рыб в конце - 4.