Однажды юному волшебнику Северусу
удалось в одном сосуде
собрать 8 слезинок
саламандры. У него есть два
пустых флакона объёмом 2 и
3 слезинки. Как ему
отмерить 4 слезинки для
зелья? Внимание! Слёзы
высыхают чрезвычайно
быстро! У Северуса есть
время только на три
переливания, прежде чем
редкое вещество
испарится.
1 переливание?
2 переливание?
3 переливание?
123
275
Ответы на вопрос:
Выливаем с 8 в 2, после чего с 2 в 3, а затем с 8 в 2. Таким образом в начальной колбе остаеться 4.
Uses crt; var stroka, podstroka: string; poz, i: integer; begin clrscr; write(' stroka : '); readln (stroka); for i: = 1 to length (stroka) do if stroka[i]=',' then stroka[i]: ='.'; writeln(' zamena : ', stroka); writeln; write(' posstroka : '); readln (podstroka); poz: =pos(podstroka, stroka); delete (stroka,poz,length(podstroka)); writeln(' udalili : ', stroka); readln; end.
Популярно: Информатика
-
инна138229.05.2023 10:33
-
WiTaMiN11115.07.2020 05:37
-
kdgsteam04.08.2021 20:05
-
vladuha69130.10.2020 20:55
-
HDHDvdvsvvs21.01.2022 23:07
-
Otto11111.12.2021 11:23
-
Lola155513.06.2021 00:16
-
Katerina2001501.01.2020 01:31
-
evagir16.05.2021 17:40
-
MiYaG1118.02.2021 04:47